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3001 P1097 ='*4=097" ! File: SMGDISLIN.832 Edit: PL1097 

4% BEGIN 

: nano Ketel gaIpR AS EL yg ermine 
2 e e 
; ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
>; «(10 ie DIGIT ides CORPORATION. ‘MAYNARD. MASSACHUSETTS. * 
POM r ie ALL RIGHTS RES SERVED. * 
: : H * 
; 18 \ ie THIS SOFTWAR $ FURNISHED UNDER A LICENSE AND May be eR AND COPIED * 
; (14 r ie ONLY IW Ace TERMS OF SUCH. LICENSE AND WITH THE 
; (15 i ie | 10M OF me na Copy YRIGHT NOTICE. THIS SOF OTHER * 
: 18 ie COP ES THERE DED-OR OTHERWISE MADE AVAILABLE TO ANY © 
eS i ie OTHER PERSON. NO TITLE TO" AND OUNERSHIP OF TNE SOFTWARE IS WEREBY * 
: + 4! - RANSFERRED. “ 
; D0 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ar 4 i ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: OC ie CORPORATION. e 
or i i@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
3; ¢ i ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: fi “ : 
; JN e 
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i AUTHOR: R. Reichert, CREATION DATE: 26-Jan-1983 
i MODIFIED BY: 
1-097 - SAGSRESTORE . Purp ical SCREEN phould set the hardware scrolling 
t i 


PO SDOOSCSS 


region to some 


ng feasonable, | 
than leaving i 


n an unknown state. PLL 1 


>. 
na aa a a a a ee a 8 a ee a ee a ed ed a ed td a oe = = 2 ot 
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1 
5 : 
; ! ABSTRACT: 
; 5 i The procedures in this module ore conerned only with the 
: 0 i al Locat ion/deal location of virtual displays, and with the pasting/ 
; 0 i unpasting of these virtual displays to pasteboards. The are not 
: : conce with their contents or output. 
; «40 DC i the procedures which maintain and ate the contents of 
: $ DG vives “Gisplers. see the module SAGSDISPLAY_CHANGE. 
= @ DC i For the procedures pbb Seay OU do sean from these virtual 
‘ $3 oe peel see the module SAGSDISPLAY_OUTPU 
: DC i ocedures that s rt input operations, see the module 
: f SRGSDISPLAY INPUT, oe 
; rt :! ENVIRONMENT: User mode, Shared library routines. 
oe 4" 
; 
> i 
4 i 
. i 
4 i 
: i 
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1-095 - Yee symbolic names SMGSK etc. SMGSLABEL_BORDER. 
Change erro error messages by ~Srebset CorSPLAY SStROLt ING REGION. 


~ fp re oo occluding other borders. STAN 7-May-1984. 
1-001 - Fir bug te Skeleton for futere code. RKR 36-Jan-1983. 
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$% ! SBTTL *Declarations' 
i SWITCHES: 
i kame 
68 
$3 LINKAGES 
71 i ‘ 
: NONE 
7% i INCLUDE FILES 
e ! 
8 REQUIRE *RTLIN:SMGPROLOG'; ! defines psects, macros, tcb, 
A i “web, & terminal symbols 
9 REQUIRE ‘RTLIN:STRLNK'; ! Linkages to string JSB 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
! Public entry points 


SMGSCHANGE _PBD_CHARACTERISTICS, ; change Peresyer eaves of 
! physical terminal 
SMGSCHANGE _VIRTUAL_DISPLAY, ! Change characteristics of 


existing virtual display 
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84 
5 
4 
38 
3s 
38 SMGSCHECK_FOR_OCCLUSION, ! Check to see if a virtual 
7 ! display is occluded. 
B SMGSCREATE_PASTEBOARD, ! Create pasteboard 
191 SMGSCREATE_VIRTUAL_DISPLAY, ! Create virtual display 
198 SMGSDELETE_PASTEBOARD, ! Get rid of pasteboard, terminate 
ie : all operations on this display 
: SMGSDELETE_VIRTUAL_DISPLAY, ! Delete virtual display 
1 SMGSGET_DISPLAY_ATTR, , ee current attributes of 
i? ! virtual display 
Bf SMGSLABEL BORDER, ! Supply label for border 
18 SAGSMOVE_VIRTUAL_DISPLAY, : neve position of virtual 
1%3 ! display on pasteboard 
i” SMGSPASTE_VIRTUAL_DISPLAY, : Paste virtual display to 
4 ! pasteboard 
119 SMGSPOP_VIRTUAL_DISPLAY, ! Pop off (and delete) ali 
120 ! virtual displays from given 


SAEED ISPLAY_LIN 


= 


CB NAME WN 


ea a ns a 4 ss ss a 


AY 
on 
SMGSREPASTE_VIRTUAL_DISPLAY, 


SMGSRESTORE _PHYSICAL_SCREEN, 


SMGSSPASTE_VIRTUAL_DISPLAY, 
SMGSSRECALC_PP_FIELDS, 


SMGSSUNPASTE_VIRTUAL_DISPLAY; 
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u 9 
~bet-19be 12:36:15 ESmanteSeuesacSsmebiscin.esz;1 "2 ca 


! to top of pasting stack. 


! Repaste virtual Stentor te 
! pasteboard in new position 


' Restore screen to where it 
' was after non-SMG user 
munged i 


: DCB and a PBCB. 


! Inner-most Paste Virtual 
! Display routine. 


Recalculate pasting packet 
fields after virtual display 
batching ceases. 

Inner-most Unpaste Virtual 
Display routine. 


routines. 


: 1 

3 1 

; 1 

3 1 

FY \ 

4 1 

3 4 : . 

: } 38 1 SMGSSAVE _PHYSICAL_SCREEN, ! Save physical screen before 

: 1 by ; ! non-SMG user mungs its up. 

; 1 0 38 1 SMGSSET_DISPLAY_SCROLL_REGION, ! Set the scrolling region in 

: : : i : ! a virtual display 

: 1 § 38 1 SMGSUNPASTE_VIRTUAL_DISPLAY, ! Unpaste virtual display from : 
: ; bgt : ! pasteboard. : 
; 4 Bee : ! Private entry points ; 
> 141 0406 1 SMGSSCALC_PASTE_TRANSF, ' Calculate pasting ; 
: 126 por : ! transformation constants. : 
5 166 bcos 1 SMGSSCHECK_OCCLUSION, ! Check current complement of : 
3; 145 0408 1 ! pasted virtual displays to 3 
; \*6 red ; ' see who is occluded. : 
: 168 0411 1 SMGSSCHECK_OCCLUSION_FIRST, ' Check occlusion caused by : 
; 4 Belg : ! highest pasted virtual display. 

; 131 1% SMGSSCREATE_PASTEBOARD, ! Create pasteboard 

; 13 1$ 1 SMGSSCREATE_VIRTUAL_DISPLAY, ! Inner-most Create Virtual 

: 13 ; ; ! Display routine 

; 136 5 : SMGSSCREATE_WCB, ! Create WCB and its buffers 

; 158 SMGSSDEALLOCATE_wCB, ! Get rid of WCB and its buffers. 

; 160 SMGSSDUPL_VIRTUAL_DISPLAY, ! Duplicate a virtual display 

; 16¢ ! SMGSSLOCATE_PP, ' Locate PP which matches a 

> 164 1 

3 19? ' 

1 

; 169 1 

: 170 1 

s 71 1 

; 76 1 

: 17 1 

: 174 1 

3; 175 1 

; WA 1 

: 17 1 
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LIBSANALYZE_SDESC_R2 : soeaen @ SDESC_JSB_LINK, 


LIBSFREE_VM, 
LIBSFREE_EF, 
LIBSGET_EF, 
LIBSGET_VvM, 


LIBSSCOPY_DxDx, 


LIBSSFREE1_DD, 


t Tengthand address of a string 
Deallocate heap storage 
Free an event flag 
Get an event flag 
Allocate heap storage 
String copy by descriptor 
! Free a dynamic string 


SMGSSBEGIN_PASTEBOARD_UPDATE a SMGSSBEGIN_PBD_UPDATESLNK, 


osha on eemtte that 


SMGSSERASE_PASTEBOARD, 
SMGSSCHECK_FOR_OUTPUT_DCB, 
SMGSSCHECK_FOR_OUTPUT_PBCB, 
SMGSSF ILL_WINDOW_BUFFER, 
SEE BATA EREONP- 
SMGSSFORCE_SCROLL_REG, 


SMGSSOUTPUT, 
SMGSSOCCLUDE, 


SMGSSPBCB_EXIT_HANDLER, 
SMGSSSETUP_TERMINAL _TYPE; 
EXTERNAL LITERAL 


L18$_EF ALRFRE, 
SMGS_FATERRCIG, 


ncrease buffering Level by 1 


SMGSSEND_PBD_UPDATESLNK, 
t Decrease buffering level by 1 


Erase the physical screen 
Force output if now is the time 


! Force output 


! Move stuff from virt. display to 
! pasteboard buffer and output. 


! Set cursor on p pozerees screen 
! Flush output buf 


! Force scrolling region on screen. 
! Output a string to terminal 


Check for how two rectangular areas 
overlap. 


Output exit handler 


! Get device characteristics 


Event flag strondy free 
Batching was enable 
Fatal gt in ; brary 


oe Spat not legal to f Batches display 
Taval d virtual a ebay 

pnvat ig pasteboard 

lid row 


$shcb1 Su 14.632; 37 


ISPLAY_LIN tg pt b-4 


— 8 2) 2 wt 


SMG$_NOTPASTED, 
SMG$_PASALREXI, 
MG$_TOOMANDIS, 


S 
SMG$_TOOMANPAS , 
SMG$_WRONUMARG; 
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$smeb Sc in. B32;1 
; ee oneal er is not pasted to iis 


asteboard already exists for this device 
! Too many virtual displays requested 
asteboards requested 

Wrong number of arguments 


r 


SAGSDISPLAY LIN Beoterert LINKS - Virtual Display Linkages Ba gone 1 38 ¢}: $6: 13 yore Bliss-3 Page 


Declarat “Oct-19 SMGRTL BUGSRCISMGDISL IA. 832;1 


oo 
We 


hy data structure resides in OWN storage. it is the primary vehicle 
Al ata from a pasteboard id to the associated pasteboard control 


Saue 


OBAL 
PBD_L_COUNT : INITIAL (0), é 7. 2 of pasteboards we currently know 
about 


ond a Bd dt a 
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mai bo 
' List sat “KAR Pe 
i pasteboard id (P 
i corresponding PB 


TVECTOR CPBD_K_MAX_PB) 

ITIAL ( BYTE -tnate T(PBD _K MAX_PB+7) /8) OF (0))); 
! This is a bit-vector of pasteboard id's 
' still available. The next available mater 
! is found by ig BX a 4’ vestruatton to find 
! first bit which is The bit Dah so 
' computed is the next Seesladas'P 
! bit found is set to 1 to mark it as in use. 
! (Presumably, a check has kta oar a nae bs 
! insure that PBD_L_COUNT is LSS PBD_K_MAX_ 


! Some constants needed by reference for FFC instruction 


ZERO : INITIAL (0), 
PBD_K_MAX_PB_BY_REF : INITIAL ( PBD.K_MAX_PB ); 


s. Indexed by 
address of 


ODDBNAOMNEW "OODNOUSE 


PBD_V_PB_AVAIL : el 
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7 7 1 ZSBTTL "SMGSCHANGE_PBD CHARACTERISTICS’ 
i eH GLOBAL Rout NE SRESCHANGE -PBD_CHARACTERISTICS 
: P_DESIRED WIDTH 
80 41 B-RESULYING wibfH, 
81 4 P“DESI ED HEIGHT 
; 4 P"RESULTIRG HEIGHT, 
4b B-DESIRED BACKGROUND_COLOR 
4 45 , PORESUL IRG_BACKGROUND _COLOR 
'oe 


FUNCTIONAL DESCRIPTION: 


This routine lets you change the physical dimensions 
of a pasteboard. It also lets you change the background color. 


i CALLING SEQUENCE: 
i ret_status.wlc.v = SMGSCHANGE_PRD_CHARACTERISTICS 
ff 


WIDTH. pled 
G 


OWONAUS UNO O@ 
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Ree ist ROUND ett oR. t.rJ 
r 
NG_BACKGROURD_COLOR.wl.rJ 


A ry tee ee eS 
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i FORMAL PARAMETERS: 
PBID.rl.r Pasteboard id of pasteboard. 


DESIRED_WIDTH.rl.r New width desired for pasteboard. 
If omitted, the width is not changed. 


RESULTING _WIDTH.wl.r favpcest width that resulted. This ma y 
be arg han the width requested if the 
teralnat 


width couldn set exactly to 

r urate. Th s may be smaller 
than the w dth requested if ‘ye terminal 
width couldn't be set that wid 


n this aan ithe, terminal was set to 
t's maxinua h. 

Example: (for vT100) 

Width Desired Width resulting 


i aE 


If desired width was omitted, this 
a usenet receives the current pasteboard 


To nd out what the pasteboard width is 


SSISAF 
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DESIRED _HEIGHT.rl.r 


RESULTING _HEIGHT.wi.r 
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(as opposed to the terminal Ae ty 
the 93 er should take the min 
of his desired width cod the resulting width. 


Bs pnt desired for gesteboord. 
tted, the height is not Seat 


spe is ght. This 1 the 
~a ¥ "he ie pocseeter 1 nine. oe nal 
he on 5 cou be set t 
his — the terminal was veet to 
t's maximum height 
Example: (for vT100) 
Height Desired Height resulting 
15 24 
35 eh 


To find out what the peysereerd hetone is 

(as opposed to the terminal height 

the caller should take the minimum 

of his desired height and the resulting height. 


DESIRED_BACKGROUND_COLOR.rl.r Symbolic name for the background 


corer ¥ wanted. For example, 
MGSC_COLOR_WHITE. These symbols 
are defined in SMGDEF.SDL 

f omitted, the to ow color 
$s not oo 


RESULTING _BACKGROUND_COLOR.wil.r Receives the actual gmt A color 
term 


abet was chosen. If the 
my not support the exact my 
oreiree "eee then sen fh epprox mation 
$s 


. BK py. 
; by jomeer ete wave gen the 

wei lent requencie For more 
tn on about m.. orimetry, 
sult Nationa: Bureau of Standards 
router he ISCC-NBS method of 
signating tot lors. 


“ene (VT100) 

Color desired Resulting Color 
yellowish pink white 

navy blue black 


Pap BRR eS atta er ote Ets aS TS IGT UREA SNGBSTEE e.n PP 


If the cericee goter is omitted, 
Be val " of this variable is not 
ec 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
$S$_NORMAL porast eee ram a 
SMGS$_WRONUMARG pate eee rguments 
pe Se USE Can't cha e chatatter istics while buffering is on 
—INVWIBARG jnvati¢ et of 
SMGS_INVPAGARG Inval oes of 0 desired 
~ INVCOLARG cas & ckground color specified 
SIDE EFFECTS: 
Physical width and background color of terminal may change. 
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PeeRS 
ERESES 


BEGIN 
EXTERNAL ROUTINE 
EE ofan mH 
RA ihe, 


EXTERNAL LITERAL 


te INVPAGARG. 7 
~PaDine USE: : i 
BUILTIN 

NULLPARAME TER; 
LOCAL 


STA 
PASTING -PACKET PANIC 
CURR _ REF SPP_DECL, 


PBCB : REF SPBCB_DECL; 


OyRANS PBCB, 


nown color 
pasteboard ves batched 


! Status of subroutine calls 
! TRUE if we must adjust pasting packets 
! Pasting packet pointer 


! Address of pasteboard control block 


V4.0-742 


Powe) 


-y 


10 
PEI. SLE TER icaah tity Cowes SI IME WRATH 


SSMGSVALIDATE_ARGCOUNT (1, 7); ! Test for right no. of args 
SSAGSGET_PBCB (.PBID,PBCB); ! Get address of PBCB 
PASTING_PACKET_PANIC=0; 


'¢ 


If a desired width is specified, get it now. 


If NOT BEGIN 1 Chan DESIRED WIDTH) 


THEN h a teboar 
Mar LOCAL falar xt DES epg tags. WIOTH; 


AL RUS ET 


If ms tae D WIDTH EQL 0 
HEN TORN SMGS_INVWIDARG; 


nt ed ad a et a 


te 
te yy t sical setting of the terminal b — 

on 3 ots s necessary. ~ ° e = for the des 
width re Se oe to s f we must change 
i the ie This at gor the will have to o change {1 if ye ever 
support terminals with widths other than 


if POceLPace. L MaLEVEL) Ne NEQ 0 
THEN RETURA ens 
'(a) rien Cunne rece oa wibTA LA 


'(a) 
'(a) 
HR ir ore up # seat 
(a 
$3) '(a) tse Ht D- MAX=152; 
'(a) '¢ 
4 '(a) ! If the desired max is the eons “ Aa current max, 
5 744 '(a) ! then no escape s e need be t to the terminal. 
4 oe 3° : Just adjust our sternal width tat the PBCB. 
. & 32 
¢ re 
& é '(a) IF _.DESIRED_MAX NEQ .CURRENT_MAX 
4 '(a) THEN 
4y 
$38 4 
49 
4 Note: (a) 


The Lines marked !(a) could added ba 


ck in 
if want to avoid ote he e se e 
to chenge ow terminal width 7 t isn't inecessery, 


SESP 
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wm 


4 

135 However, mean the gcreen doesn't phys orem ly 
blank iF yee! ¢c would have to be written 
blank she a rt of a screen when changing width 
(say) from 0 coluans. 


ai 


Se Se Se Se Ge Se Se Se Se Se Ge Fe Ge Se Ge Se Ge Se Ge Ge Fe Se Se Se Ge Se Se Ge Ge Ge Ge Se Se Ge Ge Ge Se Se Se Fe Se Se Se Se Se Se Be Se Ge Se Ge Se Se Se Se ee ee 


nel Lm SRSA HAIMES aaQAERYRE RUSE CInkanes — fseeegs 21:46:14 Yate Usaee Re ete 832;1 


DONO APUNAODR UPAR 
PEIN —OOONOUVFS UMN VFw 


ee eT ee ee PT ee eee eee eee 
7 


BEGIN ! Change physical width 
LOCAL 


14 
t First, clear the screen. 


SMGSGET _TERM_DATACERASE WHOLE DISPLAY); 
TP pacer cB L.CAP_LENGTH) NE a) 

STATUS = SMGSSOUTPUT(. Pee OCOPPBEGCALCAP, BUF TER aH 
Hp NOT .STATUS THEN RETURN .STATUS 


'@ 
j Decent. get the normal size. 


SSMGSGET_TERM_DATA(COLUMNS) ; 


IF .PBCBCPBCB-L_CAP_LENGTH] NEQ 0 
ge Sine nesu =, PBCBC CAP_BUFFER) 
STATUS = SU Ncésout PU ‘ “PBC. -PBLOLEECE 1 car Lenct Hi}. 
IF NOT .STATUS THEN RETURN .STATUS; - 
NORMAL WIDTH=. RESULT 
ELSE NORMAL_WIDTH=80; 


= 
'¢ 


Le. get the wide size. 


SSMGSGET_TERM_DATA(WIDTH WIDE): 
If .PBCBTPBCB-L_CAP_LENGTH) NEQ 0 
THEN BEGIN™ 


Sfatuse ="$nc$SoutPUT PBC. PBt isa L carat LENG 
1F_NOT 


»STATUS THEN RETURN meta 
WIDE _WIDTH=.RESUL 


ELSE WIDE_WIDTH=80; 
6 


Decide which sequence to send. 


TH), 
BuF FERJ); 


IF_.DESIRED WIDTH LEQ .NORMAL_WIDTH 
THEN BEGIN 


ah ith 


ear ” SmGBCMANCE PD CHARA aalfenyth 2e0t7 Cimtaoes— Edsenrogs 24 egg SMGRTL -BUGSACSSNGD ISL 18.032; 1 


91 


SSSEsssess 


w 


38 


ASOOCOD 
ee a a or 
OWnFwn—O 


PRI PELE LALLA AA ALAS LEN PON I UA UIA ALAA AIA ALA IA BBP PP PPR ENA EEE 


T_TERM_DATACWIDTH ); 
Resut fan 1 GLOTHS NORMAL DIDI 


ELSE reIN 
T_TERM_DATA(WIDTH WIDE); 
ity SUL ANT _WIDTH=.WIDE WIDTH 
IF pace esin- L_CAP_LENGTH] NEQ 0 
STATUS = SMGSSOUTPUT(. POCe. ,PeC CPBCB_L_CAP_LENG WJ. 
Pace #3 B_A_CaP_BuFFERI); 
A. NOT .STATUS THEN RETURN .STA 


f 

i If we asked for sonethi smelter t than he terminal 

' could handle (Like a width mar % terminal) 
then we will software m~ nal « the onatler width 


RESULTANT _WIDTH=MINUC RESULTANT _WIDTH, .DESIRED_WIDTH); 
END; ! Change physical width 


te 

i Should we go back to the old pchone whereby 

i output “ Roy y se ce only if the aon Yaidth has 
changed, the following Line 


i(a) ELSE RESULTANT_WIDTH=.DESIRED_WIDTH; 


'¢ 
Save away new pasteboard width in the PBCB. 


PREVIOUS WIDTH=.PQCBCPBCB _W vier 4); 
PecelPBCB_v_W1DTH =. RESUL TARY. 10TH; 


i it the width changed, we aust nae all the pasting 
i j_ Seeker parameters pronto. Make a note 


If Pd be WIDTH 1 ae WIDTH 
THEN sTyMe PACK 
PASTING_ PAtK T CSPACKET 


te 
At bene © gotat in the future, we might want to tell VMS 

S$ new width. nen oe. we would add that code here. 
i there ay probes! © do that since we will restore 
: _the original dth w A we y BA. this pasteboard. 


END; ! Change pasteboard width 


See Ge Be Ge Ge Ge Se Ge Se Ge Se Ge Fe Ge Ge Se Se Ge Ge Fe Ge Ge Ge Ge Se Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Ge Be Ge Se OS He Be Hs Be He Be Be Bee 


END; ! Change pasteboard height 


te 
x If the user wants the pastedoard height. give it to him now. 


WAR WN— 


ER(P_RESULTING_WEIGHT) 
' Return past 


SESSSTERES 
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7n65 SRCSCHANGE PHONCR Rigties ee” - =dennt 985 TaiShi1s — Yehenr ietae shea esc ta.ese.1 ww al 
; 617 R 

3 o18 : te 

: $ ; i If the user wants the pasteboard width, give it to him now. 

> 621 +. 

; 6 § BE If NOT LPARAMETER(P RESULTING _WIDTH) 

3 .t. THEN GIN aereryin pesteboird wigte 

> 6246 A BIND RESULTING w 44 Ee f. RESULTING_WIDTH; 

; 625 a 8 ge WIDTH=. PBCBCPBCB_W-WICTH) 

: e $ Bg END '“Return sonst tet width 

: 6 Ra? le 

3; 6 858 i If the user wants to ch his height, do that now. 

3; 68 9885 i If he teec ities an illegal height, hat's his erodlon; 

3; 651 BS i we don't know what sort of Sune terminal he might have. 

; 6 ¢ ; i This code will have to change we ever support terminals 

: ? +. g that can change height by “sending them escape sequences. 

: 635 

5 6 ; IF NOT NULLPARAMETER(P_DESIRED mks ib 

: 6 THEN NBEGIN ! Ch meiete st eboard eight 

3 oes BIND SIRE ° pes eS tReD. WEIGHT; 

; 639 ; If .PecelPace cout sie Level 

: 640 : THEN RETURA ef 

3: 641 IF ee sier Bre rent oO 

3 ose 1 THEN sueeen 

; po ¢ IF ie B_ROWS] NEQ sOesiReD. HEIGHT 

2 Be 

3 “* 5 i plank screen if we are he screen smaller 

: 64 0906 i so as to get rid of items after the bottom of 

: ot 0308 ; the pasteboard. 

: 650 iF MINU(26, DESIRED -MEIGHT) LSSU .PBCBCPBCB_B_ROWS) 

> 651 10 THEN BEGIN 

3 638 11 Sr ATUSaSmeSSERASE PASTEBOARD( .PBCB); 

: 63? 1 IF _ STATUS THEN RETURN .STATUS 

: 655 14 16 

: 636 A? : Alt cilities terminals have a maximum height of 24. 

: 658 i3 beCBPBCB B ROWS Jsft1My (26. .DESIRED _MEIGHT) 

: 65 18 fl PACRET PANIC 


SSSSSSSSSSSSSSSSSOSOSOS 

~ 

RIP APIPIPININININD & BPE NINNE PEELE 
‘- 


BEGIN ! eboird p Resi 
66 BIND RESULT ING_ 1GH tows) WE IGHT; 
670 RESULTING_HEIGHT= et pece 8. 
erg END; ‘Return pasteboard Rett 
67 


Be Ge Oe Oe Be Ge Se Be Ge Be Se Se Ge Ge Se Ge Be Be Ge Ge Ge Ge Ge Se Se Geis Ge Ge Se Oe Oe Ge Ge Oe Ge Ge Oe Ge Se Ge Be Ge Se Ge Se Ge Ge Se Se Ge Ge Gs BF Gs Ge Ge 


" 10 
Paapisraram stele atizaytgimeey emones eee lses sts INGHAM Hows al 


a Eri 

; 6746 ! If we changed either the width or t 7. ghe steboard, 
; 675 ' then we must go SSust at the pasting at snow. i 
: 676 5 : we must also reallocate res weceeee n the wCB. 
: 67 ; 
3 on ut ice peete PACKET bree +3 st meen non 
3 ate a ackets : 
: 1 : LOCAL cunnBe°**, REF SPP “pec e i 
3 j ‘Deal tocate the old WCB. 
: 685 4 éTATUS=SMGSSD LOCATE wCB<. POC cPBce_ A_wCB)): 
; 245 IF Not STATUS THEN. RETURN 7 
; 8 O34? Allocate a new WCB. 
: 690 0949 §TATUS=SMGSSCREATE WCB ( TREE (PCB PBCB_B_ROWS)) 
; 691 0950 ZREF ( .PBCBLPBCB_wW-WIDT OTMS, 
; 69 343 PaCBCPBCB 8 A_wCBI); i 
3 rot $326 if NOT .STATUS THEN RETURN .STATUS; : 
: 695 0954 i atk chain of DCB's for all displays currently pasted : 
; 696 0955 i to this pasteboard, and go update their pasting packet. F 
s pod B338 ! _Start vith first packet. : 
; 699 0958 éURR PP=.PBCB(PBCB_A xT); 
$ 00 59 WHILE .CURR_PP NEQ Pacetrace A PP_NEXT] DO d 
: 701 0960 4 BEGIN ! Update a pasting packet ; 
3 re 1 6 LOCAL ‘ 
3 at 396 ? PP_BASE : REF SPP_DECL; ! Base addr of this PP i 
; 705 0964 4 PP_BASE = .CURR_PP - PP_PBCB_QUEUE_OFFSET; ' Since queue header ; 
; P 0965 4 i not at top of i 
; 70 4 ' structure. j 
; 708 4 hs hes rs ar togd | ne paar  F PP BASE); q 
; 709 & If WoT “Star oe d 
: 710 4 CURR_PP ‘PP BA A. A A NET “Paces ! Step to next PP ; 
gs ry 0970 END; : ipeite's a pasting packet i 
: aig a4 i 
Poe =e 2 
Py ’ . Force an e. ‘ 
the 45} is ! 
: aS 7 STATUS=SMGSSCHECK FOR OUTPUT PBCB( .PBCB) ; F 
: 8 If NOT .STATUS THEN STGNAL(.STATUS); 
F ie $ iS END; ! Update all pasting packets 
: 7? } 'e 
3 , § :_ If @ new background color is desired, go do that now. : 
: 725 F 
: fF IF NOT NULLPARAMETER(P_DESIRED_BACKGROUND_ COLOR) i 
| § ; BIND” DESIRES COLORS, DES|RED, BACKGROUND 
4 - =. ‘ 
; ? 5 ss BIND RESULTIRG COL =POCB. PBCE_B BACK GROOND- COLOR}; 

j 

| 

] 
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ISPLAY N SMGSDISPLAY . = l ink 1985 21:46:1 Axt-11 Bliss-3 0-74 e 
snes PLAY_LI I Nee s . Display Linkages B-dan-1985 #336 18 Bliss a? age 


irtuel 

SMGS CHANGE ACTERISTICS SMGRTL .BUGSRC shoo 1suIN. 832;1 
; 731 3 pes! RED ¢ ou s $C COLOR wMiTe 
. 4 WEN ssnebeeye ATACCiGnT. REEN) 
; i ; TERRE ~DATACDARK ‘etke EEN); 
; 135 $ 3 oe L op LENGTH] NEG 0 
am. 4 SiiiUs = = SMGSSOUTPUT( .PBCB, .PBCBCPBCB_L_CAP_LENGTH), 
3 ¢ 4 cBCPacB_ x _CAP_BUFFER)): 
. Ff 4 IF NOT .STATUS THEN RETURN .STATUS 
: ee 1 _— 
i 0% 13 RESULTING_COLOR=.DESIRED_COLOR; 
: 764 1 END; ' Ch terminal coror 
eo OE. er 
. ‘¢ 
; 74 1006 : If the user wants the new background color, give it to him now. 
a: Peds bs 
: 750 1009 ¢ IF NOT NULLPARAMETER(P_RESULTING_BACKGROUND_COLOR) 
3 6 1010 THEN BEGIN 5 return be — round ¢ olor 
: 75 1011 BIND __ RESULTING P_RESULTING BACKGROUND _ COLOR; 
: 75 1018 RESULTING_COLOR=, a psce PaCB"B =BACKGROOND._¢ 
; Les +f, END; !"Return background Color 
; 756 1015 2 RETURN SS$_NORMAL 
3; ote 
: 758 101 END; ! Routine SMGSCHANGE_PBD_CHARACTERISTICS 


-TITLE SMGSDISPLAY_LINKS SMGSDISPLAY_LINKS - Virtual D 
: isplay Linkages 

IDENT \1-097\ 

-PSECT _SMGSDATA,NOEXE, PIC,2 


00000000 00000 PBD_L_COUNT:: 


wk 0 : 
00000000# 00004 PBD_A_PBCB: : 
-LONG 016) : 
00# 00044 PBD_V_PB. “AVAIL: 
TBYTE 0C2) ; 
goonnnen  BBReE zero: tone, B. . 
NON’ "16 ; 
.EXTRN L IBSANALYZE _SDESC_R2 
EXTRN L1B FREE VA; L IBSEREE EF 
~-EXTRN LIBSGET EF by, T_VA 
SEXTRN 18 op “br Xe ebABSSFREE! DD 
EXTRN DAUPLA TE_R 
EXTRN SaCSSENS If PASTEBOAR UPDAT "RR. 
-EXTR SMGSSERASE_PASTEBOARD 
EX 
T 


N 
: NIRA anes cnecR FORT SUT PUT Pace 
N SRCSSE TEL OINDOG BUFFER 


SMGSDISPLAY_LIN SMGSDISPLAY_ LINKS = V 
i097 “t SMG e C 


CHANGE PRON CRARA splay Linkages at dan-1985 21:66:14 YAXe11 BLissa3 Page 18 


-Oct-1 SAGRTL BUGS ISMGD ISL IN. 832;1 (6) 
»EXTRN Ha cine qin 4 SOR_POS 
«EXTRN SMG FOR e- era 


aor z@ 
23 
m 
a 


5 
TRN SMG FATERAL IB. SMGS$_INVARG” 
MG LAT. SMG =1NVOIS. ID 
SMGS_NOTPASTED, SMG “PASALREX! 
SMG$_TOOMANDIS, ~T 
QNUMARG, SAG SCALC_PASTE_TRANSF 


WCB 
NVWIDARG, ~SMGS$_INVPAGARG 
SMG$-INVCOLARG, SMG$_PBDIN_USE 
SMGSGET_TERM_DATA 


«PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


OFFC 00000 .ENTRY SIGSCHANGE PBD -CHARACTERISTICS, Save R2,R3.-; 0538 
RGR 3 RG R?. RB-RO,R10,R11 : 
B 000000006 99 MOVAB : 
A 000000006 00 ROVA Snetort TERA. DATA, R10 : 
50 C gi SUBBS «= #1, (AP), DIFF : 0705 
9 CMPB pif. Ts : 
: BLEQU 1 3 
50 000000006 8F ROVL #SMGS_WRONUMARG, RO : 
50 04 BC MOVE ID, RO : 0707 
00000000" EF $$ CPL RO. PBD_L_COUNT 3 
08 00000000" EF ; BBS RO, PBD_V_PB_AVAIL : 
50 000000006 &F ROVL #SMG$_IRVPAS~1D, i? F 
54 00000000°EF 49 00 MOVL §§ PBD_A_PBCBCRO), PaCB : 
5 i! CLRL = PASTIRG_PACKET_PANIC ; 0709 
02 DC CMPB (AP), #2 3 0715 
000 BGEQU ; 
01 GRid $ 3 
08 at 00 TSTL (AP) : 
F d¢ BEQL : 
58 08 MOVL j§§ @P_DESIRED_WIDTH, R8 : 0722 
y! BNEQ 6$ : 
50 000000006 &F i} ROVL #SMGS_INVWIDARG, RO : 0723 
00OAS = C4 TSTL  164(PBCB) : 0733 
3 BEQL 7 3 
018¢ BRW $ : 
53 108 «C4 MOVAB $4 (PBC), R : 0775 ; 
2 ae MOVAB ¢(PBCB) R 3 : 
2 TSTL (RE) ; : 
4 BNEQ $ 3 3 
63 CLRL ss (R3 ; : 


SAGSDISPLAY LIN on 


GSDISPLAY_ LINKS - 


SMGSCHANGE _PBD_ CHARAC CTER i$ 
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14 


14 


Bispley Linkages 


of 


100 
1DA 
V4 


0104 


50 


0 


FMA OAUMNONE OM $“$AViDiP Won y Pr 
MOWE MNOS WS WIG PoMh Bh EWSMm — 


ooo 9 -9O Mo 790909 -9O MSO OWOUTIC oC 
ORL HLMUMNOODO FO IFUM ODI WONG VMS 


+ ' 


22s 


~~ 


> 


= 


sieee 
-Oct-1 


9$: 


She 3:88:13 FaMGa te ode sae ishcags, tw.032;1 


9$ 
feu ase 
re 


He70,20(SP) 


vhs Fos TERM_DATA 


PBCB) 


#6 
ST Tar 

( 

108 

; is 

" SHGSSOUTPUT 
tae 

3 

é 


R3) 
0 
6 
R 


Weaaso ees 
~~ 


Al ae 
a4 


ANN AwW 
DOAOWD— 


>a 
Eat >} 


SOUTPUT 


«208 


e). NORMAL _WIDTH 
NORMAL _WIDTH 


B—-Y412B 
eres 
= 
> 
@D 
a 
nm 


-Ooo oo 


DIBBA 


$ ISPLAY_LIN SMGSDISPLAY_ LINKS = 
SAGsD al ISPLAY LINKS y 


t 
SMGSCHANGE_PBD_CHARA 


11 
fetta girmler Cieeors Fee sEs DSA MAUMEE SAS ESIB oan 
ooo y 


198: gust STATUS SST ATA 


STL R3) : 0803 

is : BEQL 1 : 
56 o1 6 C4 D MOVL 69 (PBCB) R6 + 0805 
104 4 DD PUSHL (PBCB) + 0807 
DD SHL  (R3) > 0806 

DD PUSHL cB : 

F CALLS #3, SMG$SOUTPUT : 

D MOVL RO, STAT : 

E 4 208: BLBC STATUS, 30$ : 

56 6 p HOVL 8 ), WIDE_WIDTH : 
36 50 8F OA i$ MOVZBL #80, WIDE_WIDTH + 0811 
8 pi 2$ CMPL RB, NORMAC_WIDTH + 0817 
5 os mere 238 : 0819 

4 03 BNEG 238 ; 

$3 D4 CLRL =—_« (R3) : 

1 11 BRB 243 : 

8 AE ps 00150 238 CLRL _—sINPUT_ARGS : 

8 AE OF PUS INPUT ARGS : 

0104 gs DD PUSHL 0(PBCB) : 

D PUSHL R : 

0100 4. OF PUSHAB 2 g«PacB) : 

146 AE 24 F 3¢ MOVZ2WL #581 (SP) ; 

14 AE OF PUSHAB 20(SP) : 

52 OD PUSHL R : 

6A FB CALLS @ SNGSGET_TERM_DATA : 

E BLBC STATUS, 27$ F 
DO 24$ MOVL NORMAL WIDTH, RESULTANT_WIDTH + 9820 

dD 11 BRB 29$ : 
2 B3 25$ TSTL  (R2) : 0823 

4 1 BNEQ 26 3 

$3 D4 CLRL ss (R33) : 

11 BHA 28$ 3 

8 AE ps 26$ CLRL _—sINPUT_ARGS ; 

AE OF PUS JnPur ARGS ; 

0104 g DD PUSHL 0(PBCB) : 

D PUSHL R : 

9100 4 OF PUS 236(PBCB) ; 

16 AE 246 «8F «3C MOVZWL #582, 20(SP) : 

14 AE OF PUS 20(SP) ; 

DD PUSHL R : 

A FB CALLS @ SNGSGET_TERM_DATA ; 

1 58 278 BLBS STATUS, 28 : 
52 56 D 38s MOVL #WIDE_WIDTH, RESULTANT_WIDTH 3 0824 
6 p TSTL R3) 3 0827 

0106 oD Pet -360cPBce) ; 
3 bp pusnt tea) : 0839 

4 DD PUSH cB : 

: 4 nour? RO Stato 
é 0$:  BLBC STATUS > 0831 
5 D te MOVL §RESULTANT_WIDTH, RO : $820 


Bega TAT ALIN SOE SCHANGE PAO CHARALTERTSTIcg eee” Linkages b-an- 198s PhiShi18 — Yekcat Miesaessheoys: th.032;1 Page 3) 


58 1 poice Rg : 
| i tafe actu ‘ : 
iH p 00100 328 OV t RO. RESULTANT WIDTH : 
SA 001D MOVZuL 90(PBCB), PREVIOUS WIDTH : 0856 
-% HE RL isimattat cet eS 
83 c 3 DOIDE 338: CRPB CAB). BS : : 
£ OOtE SSU ; 
«BAB OR iin : 
oc BC SAG BE ov (PBCB), @P_RESULT 1H : 
84 ran) DOTED 348: m mie. : Oa9s 
4F iF OO1F BLSSU 418 : 
10 AC OS OOrE TSTL —16(AP) : 
4A 13 OO1F BEQL «= 418 3 
OOAs £4 8 OOIF ISTL — 464(PacB) ; 0898 
8 13 OO1FB BEL : 
50 000000006 BF pO OO1FD 358: ROVL = BSMGS_PBDIN_USE, RO ; 0899 
52 10 BC Dp 00205 368: MOVE QP _DESIRED_HEIGHT, R2 : 0900 
D¢ BNEQ 7$ : 
50 000000006 BF pO oe ROVL —ASMGS_INVPAGARG, RO ; 0901 
52 SF AG 08 f 00 13 378: CMPZV #0, #8, 95(PBCB), R2 ; 0902 
18 p 00018 CMPL = -R2, #26 : 0909 
18 o¢ BLEGU 388 ; 
3g 4! MOV #24, R2 ; 
52 SF AG © § O0g¢s sas: CMPiy #0, "#8, 95(PBCB), R2 3 
& oD OC PUSHL  PBCB ; 0911 
000000006 99 1 FB OC CALLS #1 SHGSSERASE _PASTEBOARD ; 
D6 ROVL RO. STATUS ; 
61 ROgS7 398: BL BC status bb 3 091 
SF AG i 0$: MOVB R (PBcB) : 091 
9 D6 ROVE #1, PASTING_PACKET_PANIC ; 0918 
5 C 91 00041 418: CMP : 0926 
A 16 00264 sissu af 3 
ca eg : 
16 BC SF Aa 9A 00 MOVZBL 95(PBCB), @P_RESULTING HEIGHT 3 +4 
c os Bg 5% Rogeg 428: LBC PASTING_ PACKET PANIC, &7 : 0938 
000000006 F i CALLS #1, SMGSSDEALLOCATE_wCB ; 
ie MOVL RO. STAT ; 
2 RS Bian fiatas Ms oe 
08 AE A Ae SC OC ROVZUL CB), 8(SP) : 0980 
AE OF OC PUSHAB i ; 
08 AE F A 00 ROVZBL 95(PBCB), 8(SP) : 0949 
F OC PUSHAB ; 
000000006 FB OC CALLS Sangeet _WCB ; 0951 
06 ROVE STA ; 
» ROVL tit CURR PP 0384 
i $3 DT 00286 438: CPL R_PP, PBCB 3 


11 
PARTS ERAS aM HEAH EU Cimomes ACHE SEIS MGT AAEM TAR ose.s 


46$ 

Bas) PP_BASE 
CALLS #1, SMGSSCALC_PASTE_TRANSF 
MOV STATUS 

44%: BLB Atus, 45$ 


000000006 


+ 
+ 
+ 
+ 
+ 
° 
+ 
+ 


 Heeenete: 
Vana "oO 


u SAS NS 


at 
08 A ? 4! 458: pave {gP.BASE), CURR_PP 
4 DD QOgA7 468: —PUS cB ; 0976 
000000006 8 1 af 0 CALLS #1, SMGSSCHECK_FOR_OUTPUT_PBCB ; 
; FB tp ees § Atus, 47s 3 0977 
000000006 90 FB ii BB CALLS #1, LIBSSIGNAL : 
71 O0¢BE 478: CPB AP), #6 3 0985 
£ O0ece BLSSU ; 
18 AC D5 boge TSTL © -26 (AP) : 
te $e 008C9 ROVAB —253(PBCB), R : 0991 
33 oto8 C4 9E 00 cE MOVAB 64 (PBCB) fe ; 
18 BC pT 00g03 CMPL GP DES RED BACKGROUND _COi.OR, #1 0990 
65 o§ 10909 TSTL (RO) 0991 
C 13 00208 BEQL = 
AE pe OC CLARE. INPUT_ARGS ; 
AE 9F OOZE BUSHAB  JNPUT ARGS ; 
0106 £4 DD OOgE PUSHL (PBCB) ; 
2 pb O0ge PUSHL ; 
16 ne O88 BF Se BORED ROVIUL 9892," S0<SP) : 
ie i] OOSF Bra.sti«éS1S ; 
66 p DOsFS 488: TSTL (RO) ; 0992 
DOgF BNEQ = 50 : 
$2 D6 O0GFD 498: LAL (RD ; 
1 O0¢FB BRB C52 ; 
AE BG O0GED SOS: CLALINPUT ARGS ; 
AE 9F 6 PUS NPUT-ARGS ; 
0106 ¢4 po Of PUSHL © 260(PBCB) 3 
2 pb 00 PUSHL ; 
16 AE 1 a fi ROVIUL #456, SOCSPD 
RO313 518: PUSHAB mY ; 
i UE a lea : 
fy RE Sou sas: BE ag : 
0106 ¢& od OC PUSHL (PBCB) 3; 0997 
dd O¢ pusHL (Re) ; 
‘ FB OC CALL By ST al ; 
EB OC BLBS © STATUS, 548 ; 0998 
0 D055 538: ROvL STATUS. RO : 
00F9 C4 18 BC DO 00387 54$:  MOVL += @P_DESIRED_BACKGROUND_COLOR, 249(PBCB) ; 1001 
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1¢ 
1c 3 O0F9 


; Routine Size: 849 bytes, Routine Base: _SMGSCODE + 0000 


So deeclOOs 21:46:16 
07 gc 4 558: 


BT BO R00 ses 


AX-11 Bliss-3 742 ° 3 
SMGRTL BUGERCISMGDI Si 19.832; 1 eee 33 

CMPB CCAP), #7 : 1009 

BLssu 568 

TSTL (AP) 


BEQ 
MOVZBL “tia yaad @P RESULT ING_BACKGROUND_COLOR 
VL #1, R 


3 1O1g 
3; 101 
RET ; 1017 


1 
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PLAY = Change Virtual Display’ 
TUALDisPran’t vr rust Display 


irtual Dis 
SPLAY = Change 
RTUAL 


mh Ad 


PgpISPMTIM Se! 
C 


' 


—_ 


ZSBTTL *SMGSCHANGE VI 
GLOBAL ROUT INE SMGSCHANGE _9 


vi DISPLAY ID, 
NUM_ROWS, 
NUM _C 


DISPLAY ATTRIBUTES, 


7 VIDEO_ATTRIBUTES, 

76 CHAR_SET 

7 )=z 

7 'e¢ 

aa FUNCTIONAL DESCRIPTION: 

7 This routine ch s the size or default attributes of 

ab og tecios vir rust Neotay. ihe text which is currently th this 
v 


splay is resepped to fit the new dimensions starti 
so } column 1. Resulting cursor position will be at row 


CALLING SEQUENCE: 


ret_status.wic.v = SMGSCHANGE VIRTUAL_DISPLAY ( 
ISPLAY_ID.rlcr 
oNUM_ROWS lor 
oNUM_COLS.rl.r 
oDISFLAY_ATTRIBUTES.rl.r) 
-VIDEO_ATTRIBUTES.ri.rd 
oCHAR_SET.rl.rJ) 


? 


FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Display id of virtual display to be changed. 


NUM_ROWS.rl.r Number of rows in new virtual display. 
If omitted, the number of rows remains the same. 


NUM_COLS.rl.r Number of columns in new virtual display. 
If omitted, the number of columns remains the same. 


DISPLAY_ATTRIBUTES.rl.r The default display attributes: 


SMGSA_BORDER if virtual Gigpley te to be 
displayed with a border. 


SMGSM_TRUNC_ICON if an icon should be qeplayee 
when text overflows the display bounds. 


SMGSA_DISPLAY_CONTROLS if carriage controls (CR, LF, 
TRF, VT, HT) should be displayed instead 
of executed. 


If omitted, the defaul Gteploy attributes 
currently associated with the display will be 
retained. 


VIDEO_ATTRIBUTES.rl.r The default genes tes ore os be 


lied to ail out to th unless 
ween on @ eiteder output call. 
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oo" ae - ome ial soVSetae ey GUekeattyg, EARCIIEE DGS WMH aa atts sistih.esz:1 =" 33 


If Rs 143 va the current video attributes are 


i : retai 
Values: 

be SMGSM_BL INK displays characters blinking. 
0g SMGSM_BOLD fisplays characters in 

oe er-than-normal intensity. 
i. SAGSM_REVERSE displays characters being reverse 
ve ; Vv oe 

DE opposite de it rend! son of 
O88 the virtual RA 


SMGSM_UNDERLINE displays characters underlined. 


CHAR_SET.rl.r The default heres er set for all text 
goees otee with this Dsante 
Recognized anaes are 
AGSC “UNIT KINGDOM 
smote -A aeet ota toute? 


$ 
tte tf 
SAGSC~ “ALT GRAPHICS 


3333333333: 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


wn 


SS$_NORMAL Normal fy re ed completion 
L16S_INSVIRMEM Inaytticten t virtual memory to reallocate needed 


SMGS _INVARG Unrecognized Video Attributes 
or Unrecognized Display Attributes 
SMGS_WRONUMARG Wrong number of arguments. 
SIDE EFFECTS: 
disp for yecque ensioneg,” will be forced to row 1 column 1 if 
[ s 


eley ft sredinen 
r sppties and does not fit newly redimensioned 
Sse a recet w be deleted. 
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! Status y subroutine calls 
: REF SPP_DECL. i Addr. of a pasting packet 


N 
1 


11 
PARIS L0m SeRetee HANS oVUtat MERRY Wektttang EANCTGRE FLSTS WSR MRETRGNGEEES onary Gt 


IF NOT NULLPARAMETER (NUM_COLS) ! If new number of columns specified 
evse™ "5 = ..NUM_COLS 
NEW_COLS = .DCB CDCB_W_NO_COLS); 


NEW_SIZE = .NEW_ROWS * .NEW_COLS; 


11 wou Bows. ! New number of rows 
11 NEW COL ! New number of columns 
: 11 DCB": REF SiCB_DECL, ! Addr of display control block 
; 13 5 NEW SIZE; ! New rows * columns 
: : SSMGSVALIDATE_ARGCOUNT (1, 6); ! Test for right no. of args 
BE 1 SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get address of virtual display 
BE 14 ! control block. 
Be 1461 
4B 18 'e 
Bg \e? ; Determine size of new buffer we need. 
J. 13? , if NOT NULLPARAMETER (NUM_ROWS) ! If new number of rows specified 
J. 1 NEW_ROWS = ..NUM_ROWS 
: $8 ELSE 
& NEW_ROWS = .DCB COCB_W_NO_ROWS); 
90 
90 


14 

! Adjust default display, video attributes and default character set if 
H 

: they are specified. 


if wot NULLPARAMETER (DISPLAY_ATTRIBUTES) ! If display attributes specified 
DCB COCB_B_DEF _DISPLAY_ATTR] = ..DISPLAY_ATTRIBUTES; 

e NOT NULLPARAMETER (VIDEO_ATTRIBUTES) ! If video attributes specified 
DCB COCB_B_DEF_VIDEO_ATTR] = ..VIDEO_ATTRIBUTES; 

Ag NULLPARAMETER (CHAR_SET) ! If char set specified 
DCB COCB_B_DEF_CHAR_SET] = ..CHAR_SET; 


Bee a eas eSS: 


'¢ 
' 


ood oe 8 at = Ws 4 


DONO ULWN—O 


If the dimensions of the old buffer and the new buffers are different, 
: we will have to allocate new buffer space and copy existing text into 
: new buffers. 
IF .DCB COCB_L_BUFSIZE) NEQ .NEW_SIZE OR 
-DCB [DCB_W_NO_ROWS] NEQ .NEW_ROWS OR 
Pe DCB_W_NO_COLSJ NEQ .NEW_COLS 


ecele ! Redimensioning required 
STATUS ! Status of subroutine calls 


ROWS_T6_MOvE. ! No of rows that will be moved from 
! old buffer to new. 
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ISPLAY 
CHANGE _ 


RIUAL DISPLAY ~ choses Ginkages, ,. =dan 1945 PBs Re ree as 


-Jan-1 


COLS_TO_MOVE, ' se of columns that will be moved from 
NEW_TEXT_BUF : REF vec tag Earred, ' Adde of new text 
NEW_ATTR_BUF : REF VECTOR C,BYTEJ, 


er 
Ad ay new attr 
NEW_CHAR_BUF : REF VECTOR C,BYTE), 


butt r 
oe of new char_set 


TEXT_PTR : REF VECTOR C, BYTE), Address of current 


text buffer in DCB. 


Address of current 
attr buffer in 0¢CB 


Address of current 
: char set buffer in 


ATTR_PTR : REF VECTOR C,BYTE), 


CHAR_PTR : REF VECTOR C,BYTE); 


+ 
: Get space for two new, properly-dimensioned buffers. 


iF NOT (STATUS = LIBSGET_VM (ZREF (2 © .NEW_SIZE), 
nae NEW_TEXT_BUF))~ 


RETURN (. STATUS); 
NEW_ATTR_BUF = .NEW_TEXT_BUF + .NEW_SIZE; 


'¢ 

i No ay it: ret text and attribute information from 

' ate toh A TE Le: a, ste. DCB_A_ATTR_BUFJ to 

! .NEW_TEST_BOF praeerving the Line context. 
' Pires a I» Foe pet Foul tes and attribute buffer in 
' case old do not cover new area. 


CHSFILL ( 2C° NEW. $12 
CHSFILL ( .0CB "toes _B_DEF_VIDEO_ATTR], .NEW"SIZ 


TEXT_PTR = .DCB [DCB_A TEXT 1 Bury: 
ATTR-PTR = .DCB CDCB-A“A 
CHAR-PTR = .DCB CDCB-A~ AAR “SET_buF); 


ROWS _TO_MOVE = MIN (.DCB [DCB_W_NO_ROWS], .NEW_ROWS); 
COLS-TO_MOVE = MIN (.D0CB COCB"W"NO-COLS), .NEW-COLS); 


pace I FROM 1 TO .ROWS_TO_MOVE 


erein ' Move text and attrib. to new buffers. 
SOURCE INDEX, 
DEST_IRDEX; 
SOURCE INDEX = (.1 -1) * .DCB Coce W_NO_COLS) ; 
DEST_IRDEX = (cI -1) # ,.NUM_COLS ~ 3 


CHSMOVE ( .COLS_TO_MOVE, ! No of chars. 


AX-11 Bliss- 
SMGBISLIN. 832;1 


ah ith 


MGSDISPLAY_LIN sneee 


9 
fy 
991 
a 
99 
994 
5 
99 
99 
$e 
3! 
005 
3 
008 
009 
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iF .DCB COCB_A_CHAR_SET_BUF] NEQ 0 
THEN 


SS SFR IS SSSSSESS 
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2 
OONO US WIN —O 
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RTUAL_DISPLAY = Change Virtust Dis 327-1382 73:88:18 SMGRTL BUGEREISMCDySe fW.832;1 Mitt As 
TEXT_PTR C.SOURCE_INDEX), ' From 
NEU_TEXT_GUF ft OEST INDEAD) : ! To 
CHSMOVE ( .COLS TO_MOVE, ' No. of chars. 
ATTR_PTR Eb ZOyRcs JNDEX) ' From 
NEW_ATTR_BUF C.DEST_INDEX)); ! To 
END; ! Move text and attrib to new buffers. 


14 
: Deal with alternate character set buffers if they exist. 


BEGIN ! Alt. char set buffer exists 
Allocate a new alternate character set buffer and init. it 
iF NOT (STATUS = LIBSGET_VM (NEW_SIZE, NEW_CHAR_BUF )) 


) 


NEW TEXT BUF) 


BEGIN 
BSFREE_VM (AREF (2* .NEW : 
TURN INSVIRMEM from GET call 


Ll * SIZE 
3 (.STATUS); ! Return LIBS 


CHSFILL ( .DCB CDCB_B DEF_CHAR_SET], .NEW_SIZE, 
-NEW_CHAR~BOF ); 


B 
80 
'e 

Move current contents row by row 
INCR I FROM 1 TO .ROWS_TO_MOVE 


BEGIN ! Move lL 
LO = 


SOURCE INDEX, 
DEST_IRDEX; 
SOURCE INDEX = (.I1-1) * .D0CB COCB_W_NO_COLS) ; 
DEST IRDEX = (- 1-1) © ..MUM_COLS : 
CHSMOVE ( .COLS TO_MOVE, ! No of chars 
CHAR_PTR £ SOURCE INDEX), ' From 
NEW _CHAR_BUF C.DEST_INDEX]); ! To 
END; ! Move | 


'¢ 
Free old alternate char. set buffer and plug in new addr. 


IF NOT (STATUS = LIBSFREE_VM ( DCB [DCB_L_BUFSIZE). 
OCB CDCB"A~CHAR_SET BUF ))) 


WEN 

RETURN (. STATUS); 
DCB (DCB_A_CHAR_SET_BUF) = .NEW_CHAR_BUF ; 
END; ! Alt. char set buffer exists 


—wW 


a 11 
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If the number of rows changed, we need to reallocate the 
fits. characteristics vector and copy over as much of it as 


1045 

.¢ fe 

1 i Now t wn A. the text and attributes are safe in their 

1 i Wy buffers, we release the old buffers and put the addresses 
' ; i of the new buffers in the DCB. 

1 a4 if NOT (STATUS = LIBSFREE_VM (ZREF ( 2 © .DCB (DC HI L_BUFSIZE)), 
4 § 1 DCB COCB_A_TEXT_BuF JJ) 

1 1 THEN 

' : : RETURN (.STATUS); 

1 1 CB (DCB_A_TEXT_BUF] = .NEW_TEXT_BUF; ! Plug in new addresses 
1 1 CB CDCBZA“ATTR-BUF) = .NEW-ATTR™ _BUF ; 

8 8 1 

1059 1 te 

1 1 

1 1 

1 


if ,0CB COCB_W_NO_ROWS] NEQ .NEW_ROWS 
oceis ! No. of rows changed 
NEW_LINE_CHAR : REF VECTOR C,BYTE), 


Addr of a new 


SSSESSFESES 


i Line Char. 
gn ! yector 
O78 LINE _CHAR_PTR : REF VECTOR C,BYTE); ! Addr of curr. 
07 ' Line Char. 
0 : ! vector 


~~ 


LINE_CHAR_PTR = .DCB CDCB_A_LINE_CHARJ; 


'¢@ 
i Allocate e« on Line Marersorvertes vector of the right 
: _tength. Qui t if we can’t get it 


if NOT (STATUS = LIBSGET_VM ( a tae ROWS + 1), 
THEN NEW _CRAR)) 


BEGIN ! Error path 


i "Give back all space acquired on this transaction, 
: _ignoring further errors, and quit. 


Ll IBS REE VA ( meee aC © .WEW SIZE), NEW_TEXT_BuF); 
RETURN (~.STATUS ) 
ENO; ! Error path 


rd Jae 


w 


:¢ 
Clear entire allocated vector to zero 
CHSFILL ( 0, .WEW_ROWS*1, .NEW_LINE_CHAR); 


SBFZFZIEIEE 


te 
4 Cop over as much of oid Line characteristics vector as 
iwilt fit. 
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le 

CHSMOVE ( .ROWS 


— 


VE ¢ TO MOVE, 


LINE lt PTR 1} 

w_Cin€_Cwar [135; 

'¢ 

i Free former Line characteristics vector. 


if NOT (STATUS = LIBSFREE Sa 
ZREF- Fe COCB_W_NO_ROWS) +1), 
DCB COCB_A_LINE-CRART)) 
THEN 
RETURN (.STATUS); 


st et 


Oe ad at ws = 4 ns 


SawenrunnoSeese aR 
O@wO UF WO Mun 


rs 
i. Store address of new Line characteristics vector in DCB 


ocB CDCB_A -t INE. CHAR] = .WEW_LINE_CHAR; 
END; NO. of rows changed” 


'¢ 

Adjust the no. of rows and no. of cols. recorded in the DCB. 
DCB [DCB_W_NO_ROWS) = .NEW_ROWS; ! Adjust row/column size 
DCB [DCB-W-NO-COLS = [NEW “COLS; 

DCB COCB-L"BUFSIZE) = .NEWTSIZE: 

te 


} Force cursor to home. 


DCB [DCB_W_CURSOR_ROW) = 1; 
DCB CDCB"W~CURSOR-COL) = 1; 


te 
i Knock down flags that indicate we are at end of a row and that 
_we are in last Line. 


bce atte Vv tot Bo3 . 8: 


Po? at at ot ot 
SS EEA KS SSSEAEAS SS ees 


A eee oe eee ee Vv vv Yat at at af af af ah“ *al al at at at at at at at 


a ee ee ed ed ee ed ee a ed ee ee ce ee el eld ee el et ee ee ee el ee ee 


a ce ae me a a eth ee ee a ae ee ed ed ed nd 2 oe ed ed 
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4 
38 
9% 
95 
3 .. = 
Ms ocB (DCB_V_COL 
400 '¢ 
401 i Reset the scrolling region within the redimensioned virtual 
188 di splay to be the whole display. 
604 bce DCB_W_TOP_OF _SCRREG) = 1; 
rtf 1 5 DCB CDCB-W"BOTTOM_OF _SCRREG) = NEW ROWS; 
49 toe '¢ 
39 $08 _Now deal with border data, if any exists. 
3 $19 if -DCB COCB_V_BORDERED) 
é 41 THEN 
4 tig BEGIN ! Bordered 
55 41 LOCAL 
28 414 DESC : REF BLOCK (8,BYTE); ! Pointer to dynamic string 
He aiz i desc. for border label 


a ---— oor 


SMGSDISPLAY._LIN ed DISPLAY LINKS = Virtu al Display Linkages Blan -1985 21 AX-11 Bliss-32 V4.0-742 Pa 1 $ 
e697 MCSCHANGE OTATORL DISPLAY =" creeey HIPRORES ys, SgeO 188 F]:86:18 yates Bliss 33 v4.0-742 B32;1 oe 3) i= 
; 1159 1417 & DESC = DCB CDCB_Q L_DESC):; ; 
: 1139 tei : IF pest Pose -PoINt RI NEG 6 ! If label exists : 
: 1168 1420 BEGIN ! Lebel exists : 
3 116 14621 LOC np F 
3 11646 14 § $ 
> 1165 14 TEMP = rice COCB_W_LABEL_UNITS); : 
Me 1s ' : 
; 1198 14 § i Try to reapply que existing border label on this ; 
3 118 14 ! redimensioned virtual display t now doesn't 3 
; 1109 i 8 A fit because of the new dimensions, delete the Label. : 
: 117@ 1430 6 if NOT (SMGSLABEL BORDER ¢ : 
; 117 1431 6 -BISPL Y_ID, : 
: 1176 14 § 6 DES 3 
: 1125 1433 6 rer . -DCB CDCB_B_LABEL_POS)), : 
; W9 1435 6 i conditionalize UNITS parameter to : 
3; 1178 14 $ 6 i LABEL BORDER G Sependtng, 90 on scone : 
3: 1179 14 6 i caller orig inally speci 3 
3 ay + ° : 6 i FCentering® or gave us a units. : 
; 118 1440 S (IF .DCB CDCB_V_LABEL_CENTER] THEN 0 : 
3 118 1441 6 LSE TEMP), 3 
: a +3 1428 6 ZREF ( .OCB COCB_B_LABEL_REND3) é 
ME eg en : 7 
; 1185 1445 LIBSSFREE1_DD ( .DESC); ! Delete Label F 
: 1188 1466 4 END; ' Label exists ; 
3; 118 1447 3 END; ' Bordered 3 
3 11 1448 END; ! Redimensioning required : 
iW 3 3 ; 
311 1283 i Since the dimension of the virtual display oey have changed, or we ; 
3 11 1036 i may have added or deleted a border, we need to recalculate the é 
3 11 145 i transformation constants that occur in each pasting packet we are : 
3 11 1438 i involved in. 3 
3 1 i¢ 5 a Check to see if we can do it now or must wait because we are batched. : 
; 1 1487 IF ,0ce (DCB_L_BATCH_LEVEL] EOL 0 ; 
; 1488 BEGIN ! Can do it now ; 
i] tee CURR_PP : REF SPP_DECL; =! Addr of a pasting packet 3 
: ' 1468 & : NOT (STATUS = SMGSSRECALC_PP_FIELDS ( .DCB)) ; 
:1 1465 RETURN (.STATUS) ; ; 
| iss . 7 
: 1 1693 i Remap all pasteboard buffers to which we are pasted, from the ; 
: ! 1068 i bottom outward. : 
:1 1471 CURR_PP = -¢8 (DCB_A_PP_NEXT) ; 
i] 167¢ WHILE .CURR_PP NEQ DCB COCB_A_PP_NEXT? 3 


S ISPLAY_LIN SMGSDISPLAY 
7653 “3 SMGSCHANGE _ 
3; 3 16 1474 & 
3; 121 1475 4 
; 1 8 1308 4 
3 121 1477 4 
3; 1220 1328 4 
3 1221 1479 5 
3 1 ¢ 1480 4 
3 1 1481 4 
3 1224 14 ; 4 
>; 1225 14 4 
: 1 § 1484 

3 1 1485 

: 1228 14 8 

3; 1229 14 

3; 1250 1488 

3 1231 1489 

3 1 ; 1490 

3 1 1491 

3 1234 1336 

3; 1235 149 

3 12 1494 

3: 1237 1495 

3; 1238 1496 1 
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. ! Remap all pasteboards 
PBCB : REF SPBCB_DECL; } Addr of a pasteboard control 


PBCB = .CURR_PP CPP_A_PBCB_ADDR): 
IF NOT (STATOS = SMGSSCHECR_FOR_OUTPUT_PBCB ( .PBCB)) 


RETURN ( .STATUS); ! Quit if any one of them fails 


CURR_PP = .CURR_PP CPP_A_NEXT DCB); ! To next pasting packet 
END; ! Remap all pasteboards 


RETURN ( SS$_NORMAL); 
END ! Can do it now 


ELSE 
BEGIN ! Must Pelay until ond display _patch 
DCB CDOCB_V_PP_MISMATCH] = 1; ! Mark it for Later update 
END; T Must delay until end_display_batch 


RETURN ( SS$_NORMAL) ; 
END; ! Routine SMGSCHANGE_VIRTUAL_DISPLAY 


OFFC 00000 eENTRY SMGSCHANGE VET RI FLAY Save R2,R3,R4,- 
RS,R6,R7,RB,RI,RIO-RI1 
SE 30 SuBL2 $, 
6c 1 SUBBS «#1, (AP), DIFF 
05 9 CMPB pif. a5 
BLEQU 1 
50 000000006 &F ROVL #SMGS$_WRONUMARG, RO 
50 4 8 MOVL ISPLAY_ID, RO 
04 ac % ti cnet GRO}, SD1SPLAY_ID 
1 4a OA CMPB (RO), #17 
BEQL 


50 000000006 F 


MOVL #SMG$_INVDIS_ID, RO 


RET 
56 046 Bc MOVL § @DISPLAY_ID, DCB 
C CMPB sé AP), #2 
BLSSU 4$ 
08 AC TSTL 8(AP) 
06 BEQL «ss 4$ 
58 08 C MOVL ROWS, NEW_ROWS 
4 BRB $ 
5 02 A6 MOVZWL 2(DCB), NEW_ROWS 
(AP), #3 
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SMGSCHANGE_VIRTUAL_DISPLAY = Change Virtual -0ct- SMGRTL .BUGSRC JSMGDISLIN.832;1 
18 a6 3 movz 6(0CB) w_COL 
20 «AE af 8 aE § 0 MUL NEW ols, weNEW ho OWS, NEW_SIZE 
4 C Y C APT 
A if LSsu 
0 Re gig 
2F ag 10 «BC f ROVE @DISPLAY_ATTRIBUTES, 47(DCB) 
0 ¢ AP), #5 
A if SSU 
14 A Ist (AP) 
2E AG 16 BC 90 00 ROVE  @VIDEO_ATTRIBUTES, 46(DCB) 
¢ C (AP), 96 
A if BLSSU os 
18 =A p TSTL (AP) 
0 10 BEQL 108 
30 A 18 Bc MOVB = @CHAR_SET, af boce) 
2 ¢ AE 00 00( MOVL W SIZE 
Pore e Y a tl 
58 02 A6 10 Fo CAPLV #0, #16, 2(DCB), NEW_ROWS 
18 AE 06 Ab 10 r CMPZV #9 #16, 6(DCB), NEW_COLS 
O1F i ay 
28 AE OOF PUSHAB NEW_TEXT_BUF 
18 AE 57 Of 8 Oo ASHL Pi “AP 24(SP) 
18 AE OF PUSHAB 24(SP) 
000000006 00 Q F CALLS #2, LIBSGET_ vn 
oF D MOVL Tus 
BLBS TATUS. $ 
01 BRwW é 
OC AE 28 BES MOV @NEW_TEXT_ pCR?) NEW_ATTR_BUF 
57 20 ot ~ 00 2C¢ movcS #0, (SP),~#32, R7. @NE@_TEXT_BUF 
57 2E A 3 55 2c MOVCS #0, (SP), 46(D(B), R7, @NEW_ATTR_BUF 
58 5 t MOVL TH Hie PTR 
A 14 D MOVL (DCB), 
04 18 ROVE SS: | 
3 0 MOV ZWL Ree hed nous 
p I CMPL 
BLEG 
52 MOVL ee Fa 
14 AE MOV R2, ROWS JO_novE 
5 06 mOviwL 6(6CB), R 
18 «AE ; CMPL Re NEW_COLS 
BLEG )4=ss«4$ 
52 18 MOVL NE COLS. R2 
10 AE MOVL R2,~COLS.TO_MOVE 
CLRL i 
$ 1 BRB $$ 
0 FF OA VAB = 1(R7), Ro 
AG MOVZWL 6(DCB), 
” sf 8 ac f mutt Ri RO, SOURCE . “best ex 
28 BESO 08 B&48 % AE § move cOLS- OcRove.” aeecnee  RDEXCTEXT PTR), - 


—2 


12 
PRAGA L0m ERS AA AM SNSSURD PRR beHts RARTHNE LENS WMG RTIR oss 


W_TEXT UF EDEST_ INDEX : : 

BES9 9F 001 PUSHAB SNEWZA Tae bureR ;- ; 1251 ; 

9E OC BE4A 9% AE 3 80196 moves” COL S TO_ROV + GSOURCE_INDEXCATTR_PTR], - =; ‘ 

D5 57 14 00137 168: LEQ ROWS TO_MOVE, I, 158 31 3 

18 001 C Ist ge 0B) 1358 ; 

IC 00141 PUSHAB NEW_CHAR_BUF ; 1265 ; 

Y 20144 PUS W=S1Z ; 

000000006 00 0014 CALLS #¢, LIBSGET_VA : : 

6 001 ROVE = RO. STATUS ; 

001 Bs. Atus ; 

28 001 SHAB NEW. EXT BUF 1268 : 

OC AE 24 AE a 001 ASHL #1, NEW.SIZE, 12(SP) : : 
000000006 00 001 17S: CALLS 8G, LIBSFREE_ VM F : 

20 AE 30 Ab 6E . 001 1 MOVCS #0, (SP), 48(DCB), NEW_SIZE, @NEW_CHAR_BUF ; 1393 ; 
Bi CLAL ; 1288 3 

0 FF 00177 208: =1(R9), : 1285 

1 06 00178 MOVZWL 6(DCB), SOURCE INDEX ; 

1 0017 MULL2 RO, SOURCE_INDE F : 

9 C 001 MULL2 @NUM_COLS, ~DEST_INDEX : 1286 ; 

001 MOVL  CHAR-P 71 ; 

1C BE4O 6147 0 001 Moves COLS“T0 MOVE, (SOURCE INDEX)CR7J, - ; ; 
CHAR BUF CDEST [nbex) ; ; 

EO 59 16 F3 00192 218: — AOBLE ROWS -TO_AOVE. I, 20 ; 1278 ; 

18 F 001 PUSHAB 4(0B) 71 ; 

3C F OO19A PUSHAB 60(DCB) 31 ; 

000000006 00 FB 00190 CALLS #¢, LIBSFREE_VM :1 : 

6E DOT AL ROVL STAT 3 3 

BD 6E £9 QOIA BLBC §=—- STATUS ; ; 

18 Ab 1 0 OO1AA ROVL W_CHAR_BUF, 24(DCB) ; ; 

1 F OOIAF 228: PUSHAR 1 (BEB) ; 131 ; 

16 AE 3C M6 01 78 001 ASHL = #1, 60(DCB), 20(SP) 71 ; 
16 9F 001 PUSHAB 20{SP) ; ; 

000000006 00 05 FB 001 CALLS #2, LIBSFREE_VM ; 1310 ; 

6E D01C ROVE STAT ; 3 

6C 6— £9 O0IC BLBC = STATUS, 248 ; : 

10 6 8 D01C ROVE W_TEXT BUF. 16(0¢B) : 1314 ; 

14 C 001¢ ROV WIATTRIBUF , 20¢DCB) : 1318 ; 

58 02 a6 1 FQ 0010 cMPZv 80,816, béB), NEW_ROWS 3 182 : 
59 4¢ 901DA Rove. Fence) LINE _CHAR_PTR 1334 ; 

; 01 PUSHAB NEW LINE Had ; 1340 ; 

52 1 01 MOVAB IRB), RZ ; ; 

16 AE 5 01 MOVL §6R ahs ) ; : 

16 01 PUSHAB (sP) ; : 

000000006 FB 001 CALLS Bg, LIBSGET_VR : 

001 F BS sTATY TYRs ; ; 

28 D01F SHAB NEW TEXT BUF 3; 1348 ; 

16 AE 24 AE 0 D01F ASHL #1, “NEW_SIZE, 20(SP) ; ; 
+ t 4 

14 AGF 20g0 HAB 20{sP : 

FFS8 31 06 $ ; 


“yo 


SRGSPISPLAYALIM srepeLSruavGHHMGS,“pVdetunl Piaptay Linkages, Godden taKs 1 4ge1 USmokTL-BuesncsMeo13( 14.032; 1 


ns ate yy pda ape; 


No 
ao 


oc 


52 


== 


RLSR F 
Bos 


8 2S 2 2 2 22S 


BSF REE _vm 
H TAT 
S$, 25$ 
STATUS, 
R10, 76(DCB) 
NEW. ( 
( 
c] 
DCB) 
DCB) 
Payee 74(DCB) 
298 


ere) bESC 
st) 


— 
S 
~™ 


2 


“> 


+++ 


SRESSFES 


$+ ++ 


NASSSSSSSRS SEEMS 
Slama Mmm 


eno 


ef mee bd Ho we wed 4 tt te 


- TEMP 
> 26(SP) 
(DCB), 278 


BRR 
eS 
Eee eee 


SPOOOoOoOoOoOo® 


Sean enone em ee SS 


>, 28(SP) 


cB 
PLAY 


Pan, BORDER 


; 


py se iptAgSSFREET. DD 
gyge 
cB 
prSBOsgRgcacc. PP_FIELDS 
Aye CURR_PP 
(DCB), 5 
PP. RI 
{CURR_PP), PBCB 
SRGSSCHECK_ FOR_OUTPUT_PBCB 
h bP} » CURR_PP 
» 52¢0CB) 


STAT 


>++- +--+ +e ee +e + +e +e + + + + + + +> 


SISO OOOOOoOOOOOoOoOoOo Ooo dG 


SUVO— “VOVOSOLA ASAIO ARMOR OMERM OMA 
Nw 


SISTSSSALASTSS 


SAGERISPLAT_LIM speppLsrear LIMES “ptdptaat Piaplay Linkages, Scdtentees gh:ag:ts SmonTu-Guesncdsmedisiin.esz;1 9% (Ff 


50 1 DA wi, R 3 14 
Be 88800 $88; RET : 5 4038 
; Routine Size: 734 bytes, Routine Base: _SMGSCODE + 9351 


; 1239 1497 1 !<BLF/PAGE> 


Pm ae LIN Smescneck INKS = Virtua 


atachcinaaatiataaivanitnatatiatiaiainattatiattateaindiatiaitadadicstaatiaiidtaaialiatint iat tisiieihtiaee tein aiaatticdtiataati iia in 


ea a ce ce ee ce ee ee ee ee ee ee a ee ed ed ed eed ed 


- 


wr 


wa 


ee a ee ae ed ed od 
NOU UM DONO WUFS wT — 


WIM 


wm 


Wwn—o 


wa 


WO O@ 


OCCLUSION = ae See et Pe =dan-199s 43: 3: 13 UShante BuGencssmcos sc 14.832; 1 
Occ. 


t 
C 
} gsert CHECK _FOR_OCCLUSION = Check Pa see if display is occluded’ 
OBAL ROUTING SRESCHECK TOA oe CLUS toe — 


cc a 8 a ce cc ec a ee ee a a a a ee ee ed a a ee ee ed ee ee aed eed eed 


dD. 
‘BLgPEaY pp D 
OCCLUSION. Oe afe 


* 
FUNCTIONAL DESCRIPTION: 


This procedure given paste if the given virtual “— os 
pasted to the asteboard, is occluded by ano Sy virtual 
display. The 8cttus ON state {s set to: 


: if virtual djsetey is occluded 
: if virtual displ 3 :° not eceluded. 
not meaningfull : if status is not 


The returned status reflects whether the mente could be 
answered at all. 


CALLING SEQUENCE: 
ret_status.wic.v = SMGSCHECK_FOR OGL Us ON ( 
pisrL AY 1D.rl.r 
PASTEBOARD perl .r, 
OCCLUSION_STATE wl 
FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Address of a display id. 
PASTEBOARD_ID.rl.r Address of a pasteboard id. 
OCCLUSION_STATE.wil.r Set to 1 if occluded 
0 if not occluded 


IMPLICIT INPUTS: 


NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORPAL Normal success. OCCLUSION_STATE calculated. 
SMGS_NOTPASTED Given virtual display is not pasted to given 
pasteboard. 


SMGS_INVPAS_ID Invalid pasteboard id. 
SMGS_INVDIS_ID Invalid display id. 


i SIDE EFFECTS: 


FB 
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1 
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1 
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1 
4 
1 
1 
1 
1 
1 
1 
1 
4 
1 
i 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
i 
1 
4 
1 
1 


eee be 


7 


? . 
+: 


aaa ar Le 
1! 


PP : REF SPP_DECL, 


DCB : REF SOCB_DECL; 


'¢ 


: pasteboard ids. 


mn a] 
ad 


{Sse 


te 
! Try to find the pasti 
SMGS_NOTPASTED it can’ 


cc a a cc a ed ce ed ce ce ce ed ee et ee a ed a a ed ed ed od ed 


5 
RETURN (.STATUS); 
'¢ 
3 
38 
94 RETURN SSS$_NORMAL ; 
95 END; 


PBCB: REF SPBCB_DECL, 


T.0CB (DISPLAY ID 
; TUPBCB (.PASTEBDAR 


tet, SCAeCTIOOE AASGSTS WMS Oulesa ka wes0702 6. 


! Status of subroutine calls 

! Address of relevant pasting packet 
! Address of Pasteboard Control Block 
! Address of Display Control Block 


t¢ 
: Validate number of arguments. 
SSMGSVALIDATE_ARGCOUNT (3, 3); 


616. Pece; 


apes that binds these two. 


ocated. 


My (STATUS = SMGSSLOCATE_PP ( .DCB, .PBCB, PP)) 


E 0); 


' Get DCB and PBCB addresses that go with these display ids and 


Return 


Check to see if occluded and return appropriate OCCLUSION_STATE. 
-OCCLUSION_STATE = ( IF .PP CPP_V_OCCLUDED) THEN 1 


' Occluded 
! Not occluded 


! End of routine SMGSCHECK_FOR_OCCLUSION 


SMGSCHECK_FOR OCCLUSION, Save R2 
PeD_t COURT. ao - 
(ab) , a3 
#SMGS_WRONUMARG, RO 
ISPLAY_1D, RO 
a » SDISPLAY_10 


(RO), #17 


Pome i} 


1499 


1571 


1577 


ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Lin 
$n653 SRCRCHECK FOR OCELUSTON o tnoe Eee gts 


50 oooooo00s SF 


BORE 

2 

08 4G ag 000000006 
50 4 oft a 

0000v cf 
Bie 


6 
"3% ; 


; Routine Size. 119 bytes, Routine Base: _SMGSCODE 


; 1339 1596 1 !<BLF/PAGE> 


i 


FSSR=SSSSOSSSRoor— ooo 
5< =f: > t: 


2 
testo, SROIMS TIME WMT hiss vasoareg 


33 
#SMGS_INVDIS_ID, RO 


@DISPLAY_ID, DCB 
@PASTEBORRD_1D, RO 


? » PBD_L_COUNT 


RO, PBD_V_PB_AVAIL, 5$ 
aSAGSIRVPAS= 19. RO 


A RO}, PBC 
ree? aggcne. rece 
# SSLOCATE_PP 
siAtus ae 
PP, R 

42iR0), 6$ 

#1, RO 


M4 CCLUSION_STATE 
ni. Ht . 


Pave 


3 


3 


1591 


—— 
ww 
BE 


em Ad 


PERIL SEL AMES erhtenaz ioe ESI SENS MGA SMRAET so 8 
eset. At COATS SCREATE,PASTEBOARD { Pasteboard' 


D 
Out: DEVICE, 
ROWS, 


COLS 
PRESERVE, SCREEN. FLAG 
= 


se: 


‘ee 
! FUNCTIONAL DESCRIPTION: 


This routi a asteboard -- poeurnrys its assigned 
net eee & d. Device s the device which this 
pestenoerd is be“uritten. If not supplied, eutput will flow 


If PB_ROWS and/or PB_COLS are provided, they are filled in with 
the number of rows and number of columns on the physical device. 


If called upon to create a 2nd pasteboard on a device that 
already has a pasteboard associated with it, we simply return 
the id of the oi roogr cn teting pasteboard and the qualified 
success SMG$_PASALRE 

CALLING SEQUENCE: 
ret_status.wic.v = scene PASTEBOARD ( 


1D-wl. 
Le DEVICE rt.dx) 


tk at at at wt ot od ot = = 
wm 


FPAAPAAOAOAOS 
Ot a a aed aed ae a oe 


ewl.r 
-PB-COLS.wl.r 
oPRESERVE_SCREEN_FLAG.ri.r)) 


FORMAL PARAMETERS: 
NEW_PBID.wi.r Pasteboard id of see la pastebdoard. 


OUT_DEVICE.rt.dx fOptional. ec Rear ton this poreneter 
the file spect ation or logical 
name upon which the output associated 
yi S pasteboard will be written. 
f omitted, output goes to SYSSOUTPUT. 


PB_ROWS tpt tongt jf provided, it is filled in with 
he number of rows on the physical device. 
PB_COLS Cope tonal). If provided, it is filled in with 


he number of columns on the physical device. 
PRESERVE _SCREEN_FLAG COptionat}. it provided, and if has a 
hen the screen will not 
panes et atly” cleared. 
IMPLICIT INPUTS: 


Se Se Oe Se Se Ge Se Se Ge Ge SH Ss Ge SH Ge Ge Se Ge Ge FH Ge SSS SH Gs Ge Ge Gs Te Ge SH Ss SH Os Os Ss Se SF Ss Se FSS Os Oe Oe OF Se OHS Os Oe Oe Ss be Ss Sees 
ce ae ae ae a 8 ed ed ed ed ed ee ed ae ae a ae a a ed a a ee et ae el cel eel el el cel ce el cl cl eld cel el el cel cc 
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1 
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1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
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1 
1 
1 
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1 


ee a Rh Rh De te he et ed ee ee eh et et ed td td tt tt th te tf te tr te te eee eee 


nO a a ed a 8 a at a td et a ws as ws sh 


aed 


Fe rete eda Ate PRETEBOARD o’Cosane Buctebanngee® b Jann 198s 3:88:18 — Uohoate bussacismeoys, th.032;1 Page 5) 


3 7 1 1! 

3 1398 1888 5 1! IMPLICIT OUTPUTS: 

: 1400 1628 1 i 

tan oo fie toe 

: 1208 1688 COMPLETION STATUS: 

: 1405 1661 1: SS$_NORMAL Normal successful completion 

; 1e08 Ho : L188_INSVIRMEM Insufficient virtual memory to allocate needed 
; er 

; 1408 1664 1! SMGS_PASALREXI meneaers negates exists for this device 
3 re 1665 ; SMG$_WRONUMARG Wrong number of arguments. 

5 1411 196? 1 | SIDE EFFECTS: 

$ 1elg ee | 1! 

3 141 166 1! NONE 

: 1616 1670 1 — 


SPLAY_LIN 
sneee! PLAY LI 


= 


Y_LINKS = Vir rtual Display Linkages Be Jen-19 5 21:46:1 AX-11 Bliss-3 
C Ate aste : A $3:38:13 


E. PASTEBOARD - Create board Oct-19 


1o16 1671 BEGIN 

141 ore 

1013 67 BUILTIN 

141 674 NULLPARAME TER; 

1420 675 

1421 676 LOCAL 

* § of FS_LEN : WORD INITIAL (0), ! Length of filespec name to use. 
Ns 3 $75 FS_ADDR, ! Address of filespec name to use. 

+6 1 STATUS, ! Status of subroutine calls 

: TERM_TYPE, ! terminal type 

: CLEAR_FLAG, ! TRUE means clear screen 

2 PBID, ! Id of pasteboard being created. 

4 PBCB : REF SPBCB_DECL; ! Address of pasteboard control block 
: 5 ! being created. 

2 EXTERNAL ROUTINE 

6 


SMGSSERASE PASTEBOARD, 
SMGSSOUT_OF _BAND_HANDLER; 


SSMGSVALIDATE_ARGCOUNT (1, 5); ! Test for right no. of args 
SSMGSGET_NEXT_PID ( PBID); ! Allocate a new PBID 


FE 


Fe 
Wwn—oO 


'¢ 
i Decide what output device is to receive the the output of this 
i j Sestencer d. 


FS_LEN = ZCHARCOUNT (*SYSS$OUTPUT’) ' Assume default 
FS-ADDR = UPLIT (BYTE ( (*SYSSOUTPUT')5; 


Mg NULLPARAMETER (OUT_DEVICE) 


— ce ce a a a ee ee ed ee ed ee ed ed ed ed 
RREPPPP PSE AAA AA AAA A SS ys 
Las 
a ee ec ed ee ed ce ee ce ce ee ee a ee ee ee a ee ee ee ae eed eed ee 
WAN NOOOOOOSOOO 
SessosessSseesaeees 
aru Arun a 
III IRINA IRIE IRINA IIIT INIT 


re 

50 

33 , 

; 

55 710 BEGIN ! Yeor~oupes ice ye bbe 

2 711 IF NOT (STATUS BSANALYZE_SDESC_R2 ( et DEVICE 

5 rie sat “LEN, FS  abDR)) 
38 714 RETURN ( .STATUS); 
460 715 END; ' User-supplied filespec 
ree. aS $s 
Ph 718 i Create a PBCB. Allocate butters. et 

re) A : Extract the necessary device eats tease and store in PBCB. 

rr 721 STATUS = SMGSSSETUP_TERMINAL_TYPE ( 

46 7 H -FS_ADDR, ‘ files ¢ addr 

468 7 -FS_ LEN, i Leno tiLespec 

469 726 TERM_TYPE, i Gets termina ype 
40 . 5 Pace); i Address to receive address of PACB 
472 7 § If NOT .STATUS 


74 
SMGRTL .BUGSRC smb ISLIN. 832;1 


—y 


INI 
NOU 


SRLS RR UN ose 


| and 2k ted 2 te ed dd Dk et 


SES 
Sees 
wn 


SSSSLESE 


oo 
Wm 


Oe ee ed a a ed ed a a a a a a ee a a ee ed a ee ed el ae el a a a a a i a ce cl el el a el ee ed 
PUPS SSN 
SSLESE 
w 


PUP DPUPUPVSIVPVDUSUSVSVSU SVS SISA 


PROROROROPUNORORONDND 2 = = oe 


CONO UE WN 0 OONO UE WIN OO 


—~ 
wt. bet avy see thet | 


>_> PPP ee ee) 
TA EB EE 


OWOBNAVNEW $O CONOUE WO 


MAMMA 


Sscs 


Wwnr— 


ee 


SORUSAE 


a ed ee ee a a ed a a ee ee ee ee ee ed ed ee ee ee ee ed edd 
> ee! 
SaNOUFSUN—O 


pp ee i te ee, ee PP 


FOROS 


N 12 


PLAY _LINKS = Virtual Display Linkages =Jan-1985 21:46:1 AX-11 Bliss-3 
ATE_PASTEBOARD = Create Pas eboard’ 3-3et= 1984 $3:88:18 
HEN 
Pas V PB_AVAIL (.PBID) = 0 ! Rel PBID numbe 
. = Py 7 
om (TSTATUS) nies ; 


e 
! Decide whether we want to handle this qutput device ourselves 
: or use RMS to handle it. We use RAS if the output device is 

: not a terminal, We also use RAS if the output device is a terminal, 
! but one we can’t handle, such as a hardcopy terminal. 


PBCB CPBCB_V_RMS) = (.PBCBCPBCB_B_CLASS] NEQ DC$ TERM ) OR 
(.PBCB at hla EQL UNK ) OR 
(.PBCBLPBCB_B_DEVTYPE) EQL HARDCOPY ); 


+ 


i Loop through all the pasteboards we currently have trying to find 
$ _ eee Seaeeane resultant name string is the same as the one we 
ust cre . 


‘ do this only if the output device is a terminal. 
! If the output device is a file, we assume that the user wants 
! to create a new file for each pasteboard he creates. 


i lett DR Be Bed nd 
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- 
be | 
e 
ad 
eg 
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ad 
°o 
- 
zs 
e 
o 
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a 
i) 
~~ 
oO 
° 
> 
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zs 
@ 
+] 
oe 
wo 
Cad 
@ 
Ss 
°o 
& 
mJ 
a 
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zs 
a 
7 
ao 
cr 
in | 
@ 
iJ 
Qa 
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IF NOT .PBCB CPBCB_V_RMS] 
INCR 1 FROM 0 TO .PBD_L_COUNT ~1 


oceis ' Loop thru pasteboards 
SEARCH_PBCB : REF SPBCB_DECL; ! Addr of pasteboard 
' control blocks that 
! we are inspecting. 


IF (SEARCH PBCB = .PBD_A.PBCB [.12) NEQ 0 
BEGIN ! A valid pasteboard address 
IF. SEARCH. PBCB face. ~DEVWAR_LEN) QL 
vere PBCB~U~DEVNAM~LEN 


BEGIN ! Lengths matc 


IF CHSEQL (. ¥ 8 PBCB_W_DEVNAM_LENJ, 


t 
s W_DE 

4 ~T-DEVNAMI, 
pPBCB_w_DEV, M-LE 
PBCB_T ) 

# 


on 


Length 
ddr 


a 
PB length 
THEN PB VNA] addr 
BEGIN !' Match found 


STATUS; ' Local status of subr. calls 


2 
SMGRTL .BUGSRC JSMGDISLIN.B32;1 


—y 


DISPLAY LINKS = 


irtual Displa 


SAGSDISPLAY_LIN 


CREATE _PASTEBOAR 


—— 
~~ 


uw 


> >> >> >> 
SIILSSS 
UE wWn— 


—~ 
Oo 


$3 


BEB DPAAAAA AAA AA AAA AAA AAA NANA AA AAA NNNA AAPA AAA NVA AAAAA AAA AOAH 


oo 
wr 


o 


WEE 


oO 
te) 


PUFFIN E & 


SUSU SUSISISISI SIS 
W—AFWN—O0OW 


SaNe 


PUP SVS 
SCS 


wn— 


+ 3 

w 
ed ed ad ad ed od 

REO OBVWOAUE WIN $$ O OONO UF WIN OO 


exe 


et ee ce ee el ee a a ee ee a ed ad ed od td dd 
a ee ee a ee a ee ee a a a a ee a ed ded dd 
2 Cd Cd Od Od Od OD Cd CD CD OD 0D C9 OD OD OD Cd 09 OD OD 09 CD CD 0D DCD 


SASSO 
KAPLAN ASISNSAFAN=SS 


PPPPPP PPPS SAP SSAA 


=o 


END; ! Length 
: : Yo 


13 
regal bisplay binegoes — Polenetags Qhg:16  YMcHt euisecs 


: . ayeicel feyice already has a pasteboard 
. Ww . 

' Get rid $f the one we just created. 

! First souuen PBID number we consumed -- we won't 
be using it. 


PBD_V_PB_AVAIL [.PBID) = 0; 


'¢ 
Second deallocate the WCB that got allocated. 


if pace CPBCB_A_WCB) NEQ 0 
IF NOT (STATUS = SAGSSDEALLOCAT 
.PBCB CPBCB_A- 
THEN 
RETURN (.STATUS); 


E_wcB ( 
A_wCB]) ) 


14 
: Next release output buffer. 


if -PBCB CPBCB_A_OUTPUT_BUFFER] NEQ 0 
IF NOT ( STATUS = LIBSEREE_VM ( 
REF (.PBCB CPBCB-W_OUTPUT_BUFSIZ)), 
- PBCB CPBCB_A_OUTPOT-BUFFERT)) 
RETURN (. STATUS); 


14 
Finally release the PBCB itself. 


iF NOT (STATUS = LIBSFREE_VM ( SREF (PBCB_K_SIZE), 
PBCB)) 


THEN 
RETURN (.STATUS); 


16 

' Return as an id the id of the one that already 

: exists. 

.NEW_PBID = .SEARCH_PBCB (PBCB_L_PBID); 

14 

' If caller requested number of rows and columns on 
: device, tell him. 


iF NOT NULLPARAMETER (PB_ROWS 
HEN .PB_ROWS = .SEARCH_PBCB CPBCB_B_ROWS); 


F NOT NULLPARAMETER (PB _COLS 
HEN .PB_COLS = .SEARCH_PBCB CPBCB_W_WIDTH); 


RETURN ( SREP _PASAL MEX ); 
END; ! Match found 


' match 
id pasteboard address 


a“ 


° -742 
MGDISLIN.B32;1 


ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages -J2n-198 24631 AX=11 Bliss-3 Pp 3! 
3785 MESCREATE PASTEBOARD —Treare Pacteboona’ et eet A eer Pt et Re 29 463 1 
; 1587 § 
1 
1 
13 é 
: 35 1h, tore pasteboard id in the PBCB itself 
Be oo PBCB CPBCB_L_PBID] = .PBID; 
14 
39 ; i ftere the PecB. thts name iy | the user s pec * ties) for this device 
P43 i a This name may include a fit ename as well as a 
600 5 i First. we wallecete virtual memory for this buffer and 
602 § 3 then we store the length and address in the PBCB for future reference. 
$0 5 PrATuset iesee! _VM(ZREF (.FS_LEN) PBCBCPBCB_ A_OUTNAM)) ; 
$03 51 Pacer Pace ee a pajune Ce prat — 
$09 og CHSMOVE (. FS- “LEN, .FS LADOR, PBCBLPBCB. A_OUTNAM)); 
$09 + 
55 2! If device is a terminal, assign a channel to it 


If 
! If the device is not a terminal, allocate a FAS and RAB 
; _and open the file for output using RAS. 


PADO 
oe at et a 


Ooo PAP SSASAAO 
NOUS WN OOONOUS WIN —O 


af pocerrecs. v RMS) 
THEN BEGIN” ~! use RMS to open output 
14 
j itacate 3 FAB and RAB to be used to talk to this file. 


STATUS=L1BSGET _VACBREF (FABSC ft? PBCBCPBCB_A_FAB)); 
IF NOT .STATUS THEN RETURN .STATUS; 


STATUS=L IBSGET_VM(ZREF (RABSC_BLN) ,PBCBLPBCB_A_RAB)); 
IF NOT .STATUS"THEN RETURN .STATUS; 

'¢ 
t 

' 

t 

‘ 


al el cel ald eel cel any el ce eel cl cel el el ce cl ce ce ce cl ee ce ced ee cel cl cl el el cl cl cel ae ce ce cel cel ee ee cel el ee eel ed ce ee eel ee ee 
ca ce a cc a cc a a ce a ce ec a a a ee ee ce ee ee a ee a ee ad ed nd ed od dd wn 


END; ! Loop thru pasteboards 
'4 
i If we fall out of loop, none of our current pasteboards are pasted to 
| RS same device. Continue with the cr creation process. 
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6 

6 ' al et Cg a record buffer. 

6 ! Th be one byte larger than the width of 

6 the selaaseed because sometimes we will prepend 

$ : a formfeed to the record. 

6 . 

6 STATUS=LIBSGET_VA(ZREF ( .PBCBCPBCB_W_WIDTH)+1) ,PBCBCPBCB_A_RBF J); 
° IF NOT .STATUS THEN RETURN .STATU s; 

6 '¢ 

6 j_inittatize the FAB and RAB. 

it 

64 e SFAB_INIT( FAB PBCBCPBC FAB), 

1808 P ad ONA > TSMGBUTPUTTC LTs’, ' default filename 


Tegay TA ALIN SORSCREATE PRETESOARD = Losace Bestebanngzes B-Jana 196s Teg ls Hea bse sRes shee esc ta.e3e;1 Page 465 


'¢ 


Open the file for output. 


et td ot A 4 = WS 


NPA AO OONOUL UM 


pp ATyarorne ara FAR correc. A_FABI); 
IF NOT .STATUS THEN RETURN Pesa ATus 

'¢ 

: Connect @ record stream to the file. 


1644 P 1 CTX = ,PBCB, ! why not? pass the PBCB as user context 
: 1843 P 1 FAC = bur ! tee access only 

1 § P 1 FNA = .FS_ADOR, 

164 P FNS = .FS_LEN, 

+ 3 P ORG = SEQ, ' sequential file 

i ig FOP = $00, ' sequential Speryerans only 
16 P 5 RAT = CR : carr age eens 

1 e RFA = VAR ipyassiese mek records 

: § MRS 2 VPBCBLPBCB. W WidTHJ+41) ! max record size 

1 3 P SRAB_INIT( RAB = .PBCBCPBCB_A RAB), 

1 p CTX = pate ass the PBC2 as user context 
1 P FAB = .PBCBLPBCB_A mop 

16 e RBF = ,PBCBLPBCB_A =RBF 

1° : RAC = SEQ); ! sequential output 

660 

$9) 

oe8 

664 

: 


QF 


670 
671 STATUS=SCONNECT( RAB -PBCBCPBCB_A_RAB)); 
ore IF NOT .STATUS THEN RETURN » STATUS; 
674 END ' use RRS to open output 
o7? ELSE BEGIN ! assigning channel 
re] § LOCAL WNAME_DESC S MECTORE ED. ! pea  Cargen Oo descriptor 
678 ASYNT_EFN i ongwo ld efn 
6 TT10S6 : VECTORCS, WORD}. | af B for SENSE MODE 
: 5 LHARBUF : BLOCK(12,BYTE “byte characteristics buffer 


'¢ 
i Create a fixed length descriptor for our device name string 
i for use by SASSIGN. 


ce ce cc ce cc ce ce ce cc ce ce ce a cl cc ec ce ce eB ee ee ce ce ce ce cee ce ce ee ee ee ed ee ee ce ee eed ee ee eed ed 


a a a a ek a a a ee a a a dd ddd dd 


5 0 
1 
§ NAME-pE Esceods -PBCBCPB “4 RENAN LEN); 
? PBCBCPB VNAMI; 
6 5 
69 § ea: the ch 
p44) ; he peoutien channel number in PBCBCPBCB_W_CHAN). 
694 
695 e ? STATUS=SASSIGN( DEVNAM = ane Oe 
696 CHAN PBCBEPBCE.W, CHAN); 
638 § If NOT .STATUS THEN RETURN STATUS; 
4 '¢ 
$80 33 ! Assign an asynchronous event flag. 


—_th 


PSSST" SERA oUtdad ecient 


_ 
3 STATUS=L IBSGET FF CASYNC EFN); 
IF ~STATUS THEN RETORN . STATUS; 


— 


SSI 
MEW 


* Store the value into a byte in the PBCB. 


ab 4 a 8 tL 


SeSSSESESE 
—-O 


PBCB CPBCB_B_ASYNC_EFN) = .ASYNC_EFN; 


WF WN — 


up our exit block which is contained w 
exit iblock % weed to establish an 
tera - When the exi ener is 


$s ex 

$ ca 

wilt "Heok” the output buff ers, 

& guarantees that the user will see all 
ts and he doesn't manually 


Pte ate? 


program ex tho 


_N 
PRES 


7 
i 
at ! } : ¢ seme MODE Q10 to get additional characteristics 
715 19 y ! Ignore p everything thee 9 fn the characteristics buffer. 
£18 197 ! (We already got that 
at 1376 The 1/0 status block my aise things of interest. 
71 1974 
720 P 1975 STATUS=$Q10W( CHAN 2, coprece CHAN), 
721 P 197 FUNC = 10$_SEN NSERODE. 
7 P 197 10S8 = TTI0SB 
7 P 197; P = CHAR ARBUE 
726 19 P2 = 12) 
725 19 IF NOT .STATUS THEN RETURN STATUS; 
, 6 19 1 IF NOT .TTIOSBCO) THEN RETURN ‘Ty Téseco2: 
7 19 4 PBCB (PBCB_W_SPEED] = .TTI0SBC1); 
7 19 PBCB ([PBCB_W_FILL = .TTIOSB § 3 
g 13 5 PBCB (PBCB_B_PARITY] = .TTIOSB 
f + END; ! assigning channel 
7 19 
7 1 
7 1 
7 1 
7 1 
7 4 
7 1 
7 1 
1 
1 
1 es 


PBCB CPBCB_A_EXIT_ADDR] = sneverece Fart HANDLER; 
Addre oss of of our exit handler 
PBCB CPBCB_B_EXIT_ARGCNT) = 2; : ~ exit handler gets called with 


PBCB CPBCB_A_EXIT_RSN) = PBCB cco f. i ie MIE ne is the address 
el reason "this 5 longuord appears 
or . panquord, 
elsew rit block the PaCB 


i 
4 
PBCB (PBCB_A_EXIT_PBCB) = .PBCB; be pec att is the address 
' 
; 
i 


>) 


REGEGRIS 


ere 
Oo 


of this "Pack. This is 
one exit. re are many 4 
t routine ser 


ves them al -. 
here is a separate exit block 


De Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge FH GF GF Ge Ge Ge Ge Ge Gs Gs Se Ge Ge Ge SF SF Ss 5 Os Ss Ge SESH Ss OF Ss Os Se SF Ss Se Se Sees 
ec cc a ec ce ce ce ce a a ee ed ce ed ee ee ce ae a ed ce aed ed ee ee ee ed a ee ed ee ee ed eed eed 
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; } ! each pesteboard. 
1 te 
} : Establish the exit handler, using the exit block just created. 
1 . 
1 STATUS=SDCLEXM(DESBLK=PBCB CPBCB_R_EXIT_BLOCK)); 
1765 If Not »STATUS THEN RETURN .S Atos? r 
7 * 
7 Now do an incredible str thing. 
7 ue build @ 10-byte rqust ine in the pate to service out-of-band ASTs. 
, The routine has the fora: 
4k 0000 entry mask 
77 FA ALLO 
774 gc 
775 absolute address 


i 
mete appevere address of SMGSSOUT_OF _BAND_HANDLER 


~~Vw 


rot fe 


Symbolically, the routine looks as follows: 


ROUT Oe ORLER = 
EXTERNAL ROUTINE SMGSSOUT_OF _BAND_WANDER : ADDRESSING_MODE (ABSOLUTE); 
BUILTIN AP,CALLG; 
Sy CALLG(.AP,SMGSSOUT_OF _BAND_HANDLER) ; 


However, we don’t actually create this routine in BLISS and then 
move it into our structure, because we can't guaranteed that 
BLISS will continue to generate the same code in future releases. 


~~ 
w 


—~ 


eee iat eh tet he ed eh et tt te th tt tt) 


791 Thus we create the entire routine ourselves. 
79. This code would have to ch if we ever tried to run this 
ie on a machine with a new arhitecture. 
795 
PBCBLPBCB_W_ENTRY_MASK) = %x"0000° ; 
138 PBCBLPBCB_B_CALLG) = 2x ‘FA’; 
£8 PBCBLPBCB_B_REG_AP) = 3x (Bet: 
pete PBCB_B_ABSI = 3x *3 
cB pote A. HANDLER] == SAGE SOUT .OF BAND HANDLER: 
: PBCBLPBCB_@_RET = 2x "7 
te 
: ' Since all —_ well, we ust the count of how many PBCB's 


can adj 
: we have and plug its address into the pasteboard directory. 
PBD_L_COUNT = .PBD_L_COUNT + 1; 
PBD_A_PBCB [C.PBID) = .PBCB; 


'¢ 
: Initially clear the screen (unless we are asked to preserve it). 


a a a a a a a a a ce a a ee me a a a ae ce me a ee a ee ee ed ed ed ed eed od ed 


at td 
fute—-o 


13 
rayne ' SRERU A Meo 'e AFP Brfonnt905 g]:46:14  yanedt Bk igs: 
f er dtr. LPARAMET R(PRESERVE_SCREEN FLA 
twen” TL _FLAG= ree . -PRESER SERPENT CAG: 


F_ .CLEAR_FLAG 
HEN 


STATUSSSMGSSERASE_P PAS STEBOA ARO( .PBCB); 
IF NOT .STATUS THEN RETURN .STATUS; 


ELSE 
BEGIN ust retend we clea 
Me eames atic 


osein red the screen. 
LOM saciiPace a’ A “wCB); 


CHSFILL(ZC* *,.WCB wee. -BUF SIZE), .wCBCWCB oAATEXT, BUF J); 
ener tte x *, WCBLW BUF SIZE), .WCBLWCB_A_SCR_TEXT_BUFI); 
CHSFILL WCB Mie t ~BUF SIZE), .wCBLWCB ~AATIR, BY BUF I); 
CHSFILLCO, ° -WCBCWCB_L “BUF SIZE), .wCBCWCB_A_SCR_A THR BUF I); 
IF .WCBCWCB_A_CHAR_SET_BUF] NEQ 0 


THEN 
CHEF ILL CO, .MCBCWCB_L_BUFSIZE, .WCBCWCB_A_CHAR_SET_BUF J); 


IF .WCBCWCB_A_SCR_CHAR_SET_BUF] NEQ 0 
THEN 


'4 
‘ The physical cursor moves to (1,1). 


: WCBCWCB_W_CURR_CUR J=1 

: WCBCWCB_W"OLD_ CUR ROW 1; 
wCBCWCB_W-CURR CUR _COLJ=1; 

wCBCWCB_W_OLD_CurR_COL) =1; 


'¢ 
The Line characteristics get set back to 0. 


CHSFILL(O, .WCBCWCB_W_NO_ROWS]+1,.WCBCWCB_A_LINE_CHAR]); 
CHSFILL(O, .WCBLWCB-W-NO_ROWSJ+1, .WCBLWCB-A-SCR_CI INe CHAR); 


END; ! Just pretend we cleared the screen 


'¢ 


if caller is interested in number of rows and columns on device, tell 
a. 


ce a ed a ed ee a a ee a ed ee ce a ce ce ee ce ee ee ee ee ed ce a ee ee ee eed eed ed 


IF NOT NULLPARAMETER(PB_ROWS) THEN .PB_ROWS = .PBCB (PBCB_B ROWS): 
IF NOT NULLPARAMETER(PB-COLS) THEN .PB-COLS = .PBCB CPBCB-W “Uiot Hite 


BEGIN 
CHSFILL(O, .MCBCWCB_L_BUFSIZE, .UCBCWCB_A_SCR_CHAR_SET.BUF); 
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13 
ISPLAY_LIN SMGSDISPLAY_LINKS = Vir rtual Displa nkages B-Jen-t 5 21:46:1 AX-11 Bliss-32 Vv4.0-742 P 
$n639 srcerheate PAST STEBOARD - Create we Bn a Seat 4 $3:86:18 YONGRTL BUcEReTsMco GS, 14.832;1 — 
51 1 ‘6 
3 } i } |e the new pasteboard id to caller 
: 1 g .NEW_PBID = .PBID; 
: 1 58 1 ; RETURN (SS$_NORMAL) 
> 1878 1 END; ! Routine SMGSCREATE_PASTEBOARD 
4 55 4 55 4F 26 Gong P.AAA: ae Sov ; 
53 49 4C 3¢ 32 AY rr} 22 ef re 33 P.AAB: sii \ SneootPuy LIS\ ; 
.EXTRN SMG BAND _HANDLER 
“EXTAN SYS$C seule’ “srssowvect 
“EXTRN SYS SSIGN. SYS$Q10W 
“EXTRN SYSSDCLEXH 
ENTRY sncs REATE PASTEBOARD, Save R2,R3,R4,R5,R6.-; 
R9,RTO,R1 3 
sual2 he es : 
50 $UBB3 ae OP) DIFF : 
ore, fire : 
ROVL #SMG$_WRONUMARG, RO ; 
50 00000000° 1$: ADDL3 “1. PBD_L_COUNT, RO ; 
‘ca ae : 
ROVL #SMGS_T AS, RO 3 
5A 00000000' EF 90000000° 28: FFC ZERO, PBD_K_MAX_PB_BY_REF, PBD_V_PB_AVAIL, - ; 
00 00000000' BBSS PaID, PBD_V_PB_AVAIL, 3$ F 
h 38: MOVW & FS_LE 3 
MOVAB P.AAA, FS_ADDR ; 
CMPBC«CAP), #2 ; 
ssu  4$ ; 
peor og” 
MOVL  OUT_DEVICE : 
JSB L v2e Spesc _R2 ; 
MOVL » STATU : 
ROVE RI A ey N 
cs: lay Samus BS ; 
; PUSHAB TERM TYPE : 
ROY ZL FS_LEN =(SP) : 
000000006 CALLS bie SMGSSSETUP_TERMINAL_TYPE : 
st ns 
00 00000000° BBCC pe1D, stad V_PB_AVAIL, 5$ : 
5$: Biv 3 


1598 


1671 
1697 


1699 


PARIS UM SLE 


12 


co 


42 


or 
a 
ul 
05 10 3 
_ 
7 00000000' 
ae: 
a 
AS \ 
EF 


SA 28 & AS & 


MOD RP RAROD ED Ee FR 


a 
~" 


SORE 


14 «AS 
C 
A 

oc h 

SFA 
C 
A 


NKS = Virtual Display Linkage 
TEBOARD - Create asteboora’ ’ 


‘ 13 
~Jan-1 
-Oct-1 


090 6$: 


~~ oo 


-_—-—<- - = 


178: 


<SSE5SS 


+++ ~+ + +++ + + + + + + + + + 
a ae ee ce ce re ee ee eet we med a eed a et et et hs 2d 


oO 


5 21:46:1 AX-11 Bliss-32 V4.0-742 
382 #3:86:18 SMGRTL. SneSsmeb ys; 18.832: 
ROVL CB, RO 
CRPB : (RO), #66 
BEQL 
INCL R 
CLRL Oo 
TSTB 16 (RO) 
BNEQ) ss 8 
INCL R 
BISL2 Ri, R2 
CLAL RY 
CMPB 16(RO), rh} 
BNEQ 
INCL. RI 
s(t al SL ee 
Bat a3 S56 cROS. 8s 
Baw 22$ 
MOVL § PBD_L_COUNT, R7 
MNEGL #1, 1 
BRid 203 
MOVL § PBD_A_PBCBL1], SEARCH_PBCB 
BEQL 118 
MOVL CB, R4& 
cnPy (SEARCH _PBCB) , 18(R4) 
CMPCS 18(SEARCH PBCB), 24{SEARCH_PBCB), #0, - 
18(R4), 25(R4) 
BNEQ 208 
BBCC  #PBID, PBD_V_PB_AVAIL, 13$ 
TSTL B(R4S 
BEQL 4$ 
PUSHL  8(R4) 
CALLS #1 SMGSSDEALLOCATE_WCB 
BLBC status 16 
TSTL (Ras 
BeQL = 
PUS 108(R4) 
MOVZWL 112(R4), 4(SP) 
PUS 4(SP) 
CALLS ae L IBSFREE_VR 
Let STATUS, 16 
ROVIUL #882, 4(SP) 
Eee Hoare 
BLS STATUS, i5 . 
MOVL O(SEARCH_PBCB), @NEW_PBID 
CMPB ith a 
BLSSU «18 
TSTL  12¢AP) 
BEQ 18$ 
MOVZBL 95(SEARCH_PBCB), @PB_ROWS 
CMPB CCAP), 6 
ssu 198 
STL  16(AP) 


Page 


10) 


1741 
1742 


1743 


tA 


Se rat INS ORSCREATE PRETESOARD Legace Bectebangoes I dan- 196 FiS8i13 — FeNante auesncssmeasscta.es2;1 948 


03 }3 0015¢ BEQ : 
10 A 01 ROVEUL GOCSEARCH PBCB), aPB_COLS 71 
85 ooooo0des 8 S 001 8 198: ROVE PMs -PASALREXI, RO ~ ; 1838 
02 56 ; 00168 208: AOBLSS 1, 218 ; 1760 
11 0016 BRB e38 ; 
Free 31 O17) gis: BRU : 
57 08 AE DO 00176 228:  MOVL  PBCB, R7 ; 1849 
16 A? SA D0 00178 ROVE, PGID, 20(R7) : 
008d 7 9F 001 PUSHAB ; 1859 
06 AE 04 ae af 981 ROVZUL IS LEN, 4¢SP) : 
000000006 FB 00187 CALLS #3, LIBSGET_VM ; 
0 001 MOVL +4 Tus ~ Py 
G E9 001 BLat STATUS” Tas ; 1860 
0064 C7 001 Vi -FS_LEN, 228( : 1861 
0080 07 6g 001 MOVES FSLEN, (FS “ADR, @176(R7) > 1862 
03 0000 C 001 9F S$” #37 -208(R7) ; 1870 
000 +4 BRW : 
oops 7 9 DOIAB 23$:  PUSHAB 232(R7) ; 1877 
06 AE F 9A OO1AC mOVZBL #80, 4(SP) ; 
06 AE 9F 00181 PUSHAB 4(SP) ; 
000000006 FB 0014 CALLS ae, LIBSGET_VM ; 
dO 00188 ROVL ; 
2 D0 1BE BLBC suis, ; 1878 
OOEC C7 SF O0IC PUSHAB 236(R75 ; 1880 
04 AE 44 8F 9A O01CS MOVZBL 4(SP) ; 
000000006 08 FB ooleD CALLS. as l 18SGET_vA : 
o ; 06 10104 ve RO, STATUS ; 
19 00107 BLBC TAtus 4$ > 1881 
OOFO C7 $F OOIDA PUSHAB 240(R75 >; 1890 
04 AE A AT 3¢ OO1DE MOVZWL 90(R7), 4(SP) : 
AE 06 OO1E INCL 4(SP ; 
F OO1E PUSHAB 4(SP ; 
000000006 FB OOIE CALLS #2, L sini ; 
DO OO1F MOVL ; 
56 (OES 50 OOF Rove Stari, 23s {907 
0050 8F 00 6€ 2¢ OOlF ROveS 80. «SPS, #0, #80, (RG? ; 
A. e 
66 5003 8F D¢ mOvy 8 0483 (R6) : 
AG 00 OBE 8A it MOVZBL #64, 4(R6) ; 
1 90 O¢ ROVE #1. 22 RG) ; 
1 i MOVL R77, 24(RO) ; 
1D 0200 Ff 0021 move #512, 29(R6) ; 
1F 00218 MOVB #2, _$1(R6) ; 
06 MOVL  FS-ADDR, 44(R6) ; 
Foce = CF i MOVAB P.RAB, 48(R6) ; 
8 90 06 MOVE FS.LEN, 3¢(R6) ; 
5 D MOVE #13, 53(R6) 3 
sf * $5 vec 20 Of move, SebcRTD RB : 1913 
0044 8F 00 6€ ‘ Be 0 ; mOVeS 8, (SPS, #0, #68, (RB) : 
UL e 
4401 8F it MOVWY #17409, (RB) ; 
18 OB + BB doses ROVE RY. batre) ; 
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comer 
F 
em 
se 00€ 
a ar 


DE oc 
000000006 
aoe y 
67 A oc fe 
E 
oc 
24 
x & 
a f 
7E 


— = 
on 


~“ 
iy 


SR SOSNNOMmm mMmson 
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SS Wess WIAA SSESS a 
S 
oe 


ovwn 
=~ 
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+ + ole 
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2s 


- = 


+> 


ew 


oe 


2s 


SVWSGATS SSS urSS 


ool 


+++ 
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++ 


$+ _+_4 ++ 


- 
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. 
Tr 
2 $ 


SE pt fd 


oe oe oe oe oe oe oe oe oe ee ee 


oo ad mon 
SSS SMSOOOS MOMOMSO FABOOD FA RA RGAAOOOD HOOD H SARAH BODOOGODOSOLR 


Oo f2:38:1$ — Uorent bigacisheotsctv.032:1 


noe 7 ty ier 


Chrs SYSSCREATE 
ait $ y 

8LB Atus, 268 

PUS 

CALL i. no, Sangeet 
8LB8 srArU ATS 

BRW 
MOVZWL fa7), NAME_DESC 
MOVAB (RD, NAME ~DESC+4 
CLRQ. ss = (SP) 

PUSHAB 100(R7) 

PUSHAB 


NAME ESC 
CALLS #4, SYSSASSIGN 
mMOVL RO ie 38 
BLBC STATUS, 268 


PUSHAB ASYNC EF 
CALLS ‘ LTBSGer EF 
MOVL RO 
BLBC STATIS és 
MOVE ASYNC Sten 103(R7) 
CLRQ = =(SP) 
CLRQ = =(SP) 

SHL wl 
PUSHAB CHARBU 
CLRO = (SP) 
PUSHAB 1110SB 
PUSHL #39 
MOVZWL 100(R7), =(SP) 
CLRL 5g 
CALLS #12, SYS$Q10W 
MOVL RO, STATUS 
BLBC STATUS, 26$ 
BLBS  TTIOSB. 28$ 
ROVZWL TTIOSB, R 
MOVL 1110sB¢2, 10(R7) 
MOVE 1110 +6, 17(R7) 
MOVAB SMGSSPBCB_EXIT_HANDLER, 120(R7) 
mOVve = #2. 1 4(R?) 
MOVAB 136(R7} 1g8(R7) 
MOVL R7, 1 gtr ) 
PUS 114(R 
CALLS 4 a EXH 


Be Lisa, wow 


ROVE 
MOVAB see tested} "BAND HANDLER, 145(R7) 
m0 a (RY) )~ 


COUNT 
= PBD_A A_PBCBCPBID) 
MOVL i: CLEAR-FLAG 


5 AY 
SAGSDISPLAYLIN 


56 
56 
56 
56 


56 


56 


56 
56 


3; Routine Size: 


E €YPASTEBOAR TEBOAR 


20 


sss 


ss 


982 bytes, 


1 !<BLF /PAGE> 


yt rtual Dis 
- Create 


05 


: 
S 


Routine Base: 


astebo 


14 


nkages 
oree 


85 tr 
04 


; 


F 
1) 
BAS 00 0 
- 2¢ 00 
" 2c 
m 2c 
1 
15 13 
ae 
i 
1¢ 
02 06 
«Ht 
30 
91 
oc Re OS 
o Ht 
as 
a Hy 
3 
04 
-SMGSCODE + 06BF 


+ 
+ 
+ 
+ 
+ 
+ 
+! 
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‘ 
' 
\] 
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‘ 
' 
‘ 
' 
‘ 
‘ 


beH9Hs HUMES WMH OUataats Ota 83231 


AP), #5 
(AP) 


@PRESERVE SCREEN_FLAG, CLEAR_FLAG 
CLEAR. FLAG, i 


#1, SrA ~-PASTEBOARD 
RO, STA 


STATUS. 
STATUS, ao 


§(R7), wee 

spcwcd. Re #32, R6, a8(WCB) 
#0, (SP), #32, R6, a20<wCB) 
#0, (SP), #0, R6, a12(wCB) 
#0, (SP), #0, R6, @24(WCB) 
16(WCB) 

#0, (SP), #0, R6, a16(wCB) 
8(wCB) 

#0, (SP), #0, R6, a28(wCB) 

2«wce), R6 

0, (SP), #0, R6, a44(WCB) 

#0, (SP), #0, R6, a48(wCB) 
(AP), 


Hes 


(7), @PB_ROWS 


( 4 
7$ 
he 
3 
(R7) CLS 


c 
Pel D, ev w_PBID 


SAEED ISPLAY LIN 


wu 
w 


283 


WN— 


oO 


(03 08 0308 CD CD: 


Le 


Oe a as 2s ts = = = sn a 
w 


ed et ot wt 
OONE AE UO O09 NONE UI OOo ae 


SRSESESS 


SES333 


oo WPwt— 
a a a a a a a a a ee ee ed ded 


be a at st te 


> i, ee 


VF WN — 


POPOPOAD 


a ee ce ee ee ce ce ed ce ed ed ed ed ed ae eed eed 


OWDOODODOODDOVDOVOO 


ee ee ee ee ee ee ae ee ed ee ed ed ed ed ed ed 
FUN "0 OOO Ew oO 
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AY LINKS = Virtual Display Linkages ~Jan-1985 21:46:14 AX-11 Bliss 
E_PASTEBOARD = Delete Basteboard® ae tet $3:88:18 SMGRTL .BUGSR 
ZSBTTL ° SOeLere Pas TepOnaD = Delete Pasteboard’ 
GLOBAL ROUTINE SMGSDELETE_PASTEBOARD ( PBID, CLEAR_SCREEN_FLAG ) = 


oe 
FUNCTIONAL DESCRIPTION: 


This routine terminates all use of a given physical Gisplay. 
It deallocates the pasteboard control block and all its 
substructures. It gets rid of the event flag and the channel 
number. It removes any associated exit handler. 


CALLING SEQUENCE: 
ret_status.wic.v = SMGSDELETE_PASTEBOARD ( PBID.ri.r 


C,CLEAR_SCREEN_FLAG.ri.rJ) 
FORMAL PARAMETERS: 
PBID.rl.r Pasteboard id of pasteboard. 
CLEAR_SCREEN_FLAG.rl.r rt. to clear the screen, 
ep it as i 


O. 
The default is to clear the screen. 
IMPLICIT INPUTS: 


NONE 
IMPLICIT OUTPUTS: 

NONE 

! COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SMGS_WRONUMARG Wrong number of ar ts. 
SS$_xyz errors from SDASS 
L188_xyz errors from LIBSFREE VM or LIBSFREE_EF 
SMGS" xyz errors from SMGSSFLUSH_BUFFER 


. SIDE EFFECTS: 
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$8653 ~"" SMGSDELETE_PASTEBOARD = Delete Basteboard® at Serer: YSMGRTL BUSSE SsMCDS Sc fa.832;1 o9e 438 
; 13 $ 179 BEGIN 

: 19 : 1 BUILTIN 

3 19 | i NULLPARAMETER; 

3 19 1 4 LOCAL 

: + 4 i ; STATUS, !' Status of subroutine calls 

; 4 5 : CURR_PP : REF SPP_DECL, ! Pasting packet pointer 

: 19 190 WCB : REF SWCB_DECL, ! Window control block. 

: 1939 136 PBCB : REF SPBCB_DECL; ! Address of pasteboard control 
; oe 132 ' block 

; 1948 195 2 EXTERNAL ROUTINE 

: 194 196 

> 1944 19 SMGSSFORCE_SCROLL_REG, 

: 1945 198 SMGSSERASE -PASTEBOARD, 

3 1946 199 SMGS$SFLUSH_BUFFER 

; 1967 90 SMGSCHANGE -PBD_CHARACTERISTICS; 

: 1949 0¢ SSMGSVALIDATE_ARGCOUNT (1, 2); ! Test for right no. of args 

: 1951 04 SSMGSGET_PBCB (.PBID,PBCB); ! Get address of PBCB 

188 Bb. 

: 1938 oF Batch up the unpastes, so that the whole screen disappears at once. 

: 1956 99 IF NOT (STATUS = SMGSS$BEGIN_PASTEBOARD_UPDATE_R1(.PBCB)) 

: 1958 11 RETURN (. STATUS); 

: 1380 18 Ss 

: Hd i Walk chain of all DCB’s pasted to this pasteboard and unpaste each. 

: 1968 1 CURR_PP = .PBCB CPBCB_A_PP_PREV); 

> 1964 1 WHILE .CURR_PP NEQ PBCB-CPBCB_A_PP_NEXT) 

> 1965 18 DO 

: 1966 1 BEGIN ! Walk chain 

> 196 0 LOCAL 

: 1968 i : REF $OCB_DECL, ' Address of DCB involved 
; 1968 ; PP_BASE : REF $PP_BECL; ' Base addr of this PP 
: 1971 4 PP_BASE = .CURR_PP = PP_PBCB_QUEUE_OFFSET; ! Since queue header 
: 1976 5 ' not at top of 

; 197 $ ' structure. 

+ 197% DCB = .PP_BASE CPP_A pe ADDR): 

: 1975 8 4 IF NO) (STATUS = SAGSSUNPASTE_VIRTUAL_DISPLAY ( 

: 197% 4 .0CB ' DCB involved 
> 197 0 4 > PBCB)) i PBCB involved 
: 1978 1 THEN 

: 1979 : RETURN (. STATUS); 

> 1981 4 CURR_PP = .PP_BASE C[PP_A_PREV_PBCB]; ! Step to next PP 

> 1982 5 END; ' Walk chain 
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: 1983 § 
3; 19 PBCBCPBCB_! _BATCH_LEVELJ=0; 
1 Bg. 
: 1989 40 i If the user asked tor the screen to be erased, then 
3; 1988 41 ' release lock on pasteboard, force output of now=-blank screen, and 
3 1368 PX: flush it out. 
: 1991 44 2 IF NULLPARAMETER(CLEAR_SCREEN FLAG) 
; 1336 Fi a NULLPARAMETER(CLEAR_SCREEN_FLAG) AND ..CLEAS_SCREEN_FLAG) 
3 133¢ ¢} BEGIN ! clear screen 
; 138 re + 4B IF NOT (STATUS = SMGSSEND_PASTEBOARD_UPDATE_R2(.PBCB) ) 
: 1998 31 i(b) RETURN (.STATUS); 
3 600 38 tC) IF_NOT ( STATUS = SMGSSCHECK_FOR_OUTPUT_PBCB(.PBCB)) 
; 90¢ 38 i(b) RETURN (.STATUS); 
; 004 57 '(b) IF NOT (STATUS = SMGSSFLUSH_BUFFER(.PBCB)) 
3; 2005 28 '(b) 
: oo8 4 '(b) RETURN (.STATUS); 
; 2008 61 : Note (b): Erase pasteboard should clear the screen and | ’ 
3; 2009 ¢ : we can bypass flushing since the user is deleting his 
: ott o7 ! pasteboard anyhow. 
i 301 68 PBCBLPBCB_V_BUF _ENABLED]=0; 
: Bis ef 3 IF NOT (STATUS = SMGSSERASE_PASTEBOARD( .PBCB) ) 
> 2016 $56 5 RETURN (. STATUS); 
3 sole $5i0 
3; 2018 271 3 '¢ 
3; 2019 $558 ! Set terminal back to it's orignal width. 
: 031 He This requires batching to be off. 
: 20 75 
; $55 276 If _ .PBCBCPBCB_W_WIDTH] NEQ .PBCBCPBCB_W_ORIG_WIDTH] 
3 2024 77 4 THEN BEGIN 
3; 2025 78 4 STATUS=SMGSCHANGE _PBD_CHARACTERISTICS(.PBID, 
3; 20 § 79 «4 R ‘. CPBCB_W_ORIG_WIDTH])); 
; ° 80 4 IF NOT .STATUS THEN RETURN .STATUS; 
3 8 81 4 STATUS=SMGS$SFLUSH_BUFFER(.PBCB); 
; 9 9 38¢ 4 IF NOT .STATUS THEN RETURN .STATUS 
: 2031 84 ; 
3 O82 HH END ! clear screen 
; O84 ; BEGIN 
; 5 . SMGSSFLUSH_BUFFER(.PBCB); 
; B36 PBCBCPBCB_V_BUF _ENABLEDJ=0; 
3 oe 90 END; 
3; 2038 91 
3 2039 92 WCB=.PBCBCPBCB_A_WCB); 


ut 


Be Se Ge Ge Be Se Se Ge Be Se Ge Fe Ge Fe Se Fe Ge Ge Se Be Se Se Se Fe Ge Fe Ge Ge Ge FF Se Se Se Se Ge Se Ge Se Se Se oe Se Se Sees Se See esos es See Se eses ee 


5 


SMGSDISPLAY_LIN $ 
1-090 


040 
041 


ERRERERE 


pote flolololalolololq] 
DADA AS AAT 
DONOUVLSWN OO OODNOULS WN 


3 


a3 


SeSSE 


Ss 


wrod 


SSSsS2eSesc 
co WMP — 


PEO OONOUE WN “QOOOVNEOUS WOO 


AWW 


cee and ued oo a 


vv 


Aw et tt ot et ot et et ot et at et ot ot te 


14 
MGSDISPLAY_LINKS = ual Display Linkages $-Jan-19 5 21:46:14 AX-11 Bliss- 
SMGSDELETE PASTEBOARD - Delete Pasteboard® 2 $3583] ay 


board “Oct-19 


14 
iifa sores ie gg is set (other than the full screen), 
! then reset now ing ce caretue to leave the cursor alone 
i even though et StrOeLt G REGION may move it. 

i Note that if we never establ genet any scrolling regions, 

' _the TOP_SCROLL Line will be 0 


IF -PBCBEPBCB_W_TOP_SCROLL_ at 
AND (. fete PBCB_W_TOP_SCROLL_LINE pr 
THEN PBCB_W_BOT-SCROLL— “LINE NEG ‘yee WCB_W_NO_ROWS]) 
BEGIN ! Remove scrolling regions 
LOCAL 
F INAL_ROW, ! Final cursor row 
FINAL_COL; ! Final cursor column 


ba 
i Construct escape sequence (possibly null if not a supporting terminal) 
t to set the hardware scroll region to the full height of the screen. 


SSMGSGET_TERM_DATA(SET_SCROLL_REGION, 
.WCB CWCB_W_NO_ROWS)); 


'¢ 
; _Output BUFFER. 


fr ,POCBLPACE_L CAP. LENGTH NEQ 0 
BEGIN ! Issue the reset 


'¢ 
i Remember where the user left the physical cursor, since 
‘ changing scrolling regions might upset this. 


FINAL _ROW=.WCBCWCB_W_CURR_CUR_ROW); 
F INAL-COL=.WCBLWCB_W~CURR_CUR_COLJ; 


STATUS = SMGSSOUTPUT(.PBCB,.PBCBCPBCB_L_CAP LENGTH] 
.PBCBLPBCB_A-CAP-BUFFERJ); 
If NOT .STATUS THEN RETURN .STATUS; 


'¢ 
! i _fove the cursor back to where it was. 


If NOT eA ER ICLEAe SCREEN_FLAG) 
AND NOT ..CLEAR_ SCR EEN LAG 
THEN BEGIN gon inal cursor position 


—w~ 


=742 
15 SMGRTL .BUGSRC SMGBISLIN. 832;1 


—if 


ans Te: LIN SACSDELE TE PASTESOARD «betes Pesteboocaee’ Be denctats 4:88:18 — oMcatSbussaeSsmeoescth.e32:1 Page 43) 


SSMGSGET_TERM_DATA(SET_CURSOR_ABS,.F INAL_ROW, .FINAL_COL); 
STATUS = SMGSSOUTPUT(. PCCD. OCBTPBCE-A LCAP ~LENGTH) 


cre 


1 BLPBCB-A_CAP—BUFFER 
1 IF NOT .STATUS THEN RETURN .STATUS 
5 END ! Restore final cursor position 
5 END ! Issue the reset 
END; ! Remove scrolling regions 


'¢ 
Get rid of our exit handler. Ignore a no handler found error. 


STATUS=SCANEXH (DESBLK=PRCBCPACB R “EXIT BLOCK)); 
IF (NOT .STATUS) AND (.STATUS NEQ™SS$_ROHANDLER) 
THEN RETURN .STATUS; 


te 
j veel eacate the WCB if there is one. 


ee a et oe od A th oe tt 


NOUNS WN OO OBNOUS WIN —O 


IF recetrere Awe) NEQ 0 
THEN BEGIN ! getting rid of WCB 


PacaLPace A-WCB)=0: WCB(.PBCBCPBCB_A_WCB)); 
F NOT eraTUS” THEN RETURN .STATUS 
END; ! getting rid of WCB 


' safety 


i If there is a channel assigned, deassign it now. 
This eutoneticsity cancels any 1/0 on the channel. 
In particular. it removes any out-of-band ASTs that 
_were enabled. 


Wil -2 


wm 


If tar 4 ae oe 
THEN BEGIN ! deass A ng channel 


STATUS=SDASSGN( CHAN=.PBCBCPBCB_W_CHAN)); 
PBCBLPBCB_W_CHAN]=0; ! just in case we get called 


i again after returning an error 
IF NOT .STATUS THEN RETURN .STATUS 
END; ! deassigning channel 
'¢ 


Free the event flags n 
j_-oere error if it ves "elready free. 


If _.PBCBCPBCB_B_EFN] NEQ 0 
THEN BEGIN 
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EFN) 


STATUS=LIB FREE_EF ( TREE ( PBC BCBCPB 
mi 7h; ah NES Pres" EF TALRERED 


IF (No 
RETURN StAtUs: 
_B_EFNI 


1 pacacece. B_ASYNC_EFN) NEQ 0 
TINOT” STATUSY AND EF ¢ wert re PBCBCPBCB_B Asrme pen} ); 
IF (NOT (STATUS NEQ LTBS_EF _ACRFRE) 
TH RETURN .ST TATUS; 
pene Pace _B_ASYNC_EFNJ=0 


'¢ 
i Free the output buffer now. 


IF _ .PBCBCPBCB_A_OUTPUT_BUFFER] NEQ 0 
THEN BEGIN” ~! freetng output buffer 


STATUS=L IBSFREE_ a ea PG -PBCBCPBCB W_OUTPUT peste ), 


A_OUTPOT-BUFFERT ) 
PBCBCPBCB_A_OUTPUT_BUFFERJ= 
IF NOT .STATUS THER RETURN vi satus 


END; ! freeing output buffer 


'¢ 
1 "res the output filename. 


IF_ .PBCBCPBCB_W = QUIN LEN) — é. 
THEN N™ Eecintincent 
STATUS=LiBSFREE EF (.PBCBCPBCB_W Bey NAM LEN) ), 


cacPaC CB_A_OUTNAM] ) 
epcesrece W_OUTNAM 
IF T STATUS mae RE TURA «STATUS 
“ ! freeing outname 


te 
i Sone the output file, if there was one 


IF TiN BEGIN" =! Close 
THEN BEGIN ! C one output file 
Te wo statu FAB = .PBCBCPBCB A_FAB)); 
IF srtiit THEN rei N .STATOS” 
ND; ' Close output file 


'¢ 
j free the record buffer, if there was one. 
If tite betin” A_RBF) NEQ 0 
Meet Uset iescer -VACZREF (.PBCBCPBCB_W_WIDTH)+1) ,PBCBCPBCB_A_RBF)); 
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CPB 


PBCBCPBCB 
5 
} 
: 


iP nor eraTus. Heh RETURN .STATUS; 


'@ 
. Free any FAB or RAB that was created. 


FRPP RES 


Od ed ed ed ed 
~ PN 


If a te 4.41 0 A. tres 


Plo adPRL Dnt 
ATUS=LIBSFREE_VA(ZREF (FABSC_BLN), 

PBCBCPBCB_A_FAB) ); 
PacBCPBC 


IF NOT “STATUS ae RETURN “Status 
END; : treed ng F 


IF pocerrers At a Q — 
THEN BEGIN "On tae 
STATUSELIBSFREE (ZREF (RABSC_BLN), 
PBCBCPBCB_A “RAB) ); 
PBCBCPBCB_A 


RAB)=0; 
IF _ eratuse THEN RETURN .STATUS 
END ! freeing RAB 


S ad nde katate ete 


SESELERFENES 
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'¢ 


Now go free the PBCB itself. 


if 1 (STATUS=LIBSFREE_VM (ZREF (PBCB_K_SIZE), PBCB)) 
RETURN (.STATUS); 


wa 
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4 d totes all went well, we can now adjust the count of how many PBCB's 
; we have and remove its address from the pasteboard directory. 
PBD_V_PB_AVAIL C..PBID) = 0; 

PBD_L_COUNT = .PBD_L_COUNT - 1; 

PBD_A_PBCB (..PBID) = 0; 

RETURN SS$_NORMAL 

END; ! Routine SMGSDELETE_PASTEBOARD 
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#1, (AP), DIFF 
fe, wi 


#SMGS$_WRONUMARG, RO 
rei. R9 

s », RO 

8 + PBD_L_COUNT 


RO, PBD V_PB_AVAIL, 3$ 
#SMG$_IRVPAS-1D, RO 


PBD_A_PBCBCRO], PBCB 
PBCB, R4 


R 
SMGSSBEGIN_PASTEBOARD_UPDATE_R1 
RO, STAT 


-8(R3), PP_BASE 
16(PP_BASES, DCB 
#°M<RO,R4> 

#2, SMGSSUNPASTE_VIRTUAL_D!SPLAY 
RO, STATUS 

STATUS, 8$ 

12(PP_BASE), CURR_PP 


164 (R4) 
(AP), #2 


(AP) 
(AP), #2 

(AP) 
@CLEAR_SCREEN_FLAG, 9S 
eetateanee 
#1, SMGSSERASE_PASTEBOARD 
RO, STAT 

TATUs, 

(R4), 230(R4) 
230(R4), (SP) 
B>McRI gp» 
#2, SMGSCHANGE_PBD_CHARACTERISTICS 
R STATUS 
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“i, SNGSSELUSH BUFFER 
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SMGSDELETE_PASTE EBOARD - Delete board “Oct-19 SMGRTL .BUGSRCJSMGDISLIN.B32;1 

50 55 ‘8 388: mOvL STATUS, RO ; 24% 
50 $5 ‘ 1C 39$: MOVL (n9) + 2501 

00 44 OA 0 iF BBCC ben” v Pe AVAIL, 408 ; 
57 00326 408:  DECL S Lc 3505 
06 anto D4 00326 CLRL Pap. A ~patBERO] : 2505 
50 01 b0 0032A MOVL RO : 2507 
00 RET + 2509 


3; Routine Size: 814 bytes, Routine Base: _SMGSCODE + 0A95 


: 2257 2510 1 !<BLF/PAGE> 
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4 
ATE _VIRTUAL_DISPLAY = Create Virtual Dis 2-0ct-1 SMGRTL .BUGSRC JSMGDISLIN.B32;1 


SPGSDISPLAY_LIN ane 


3; 2259 11 1 ZSBTTL "SMGSCREATE VIRTUAL_DISPLAY - Create Virtual Display’ 

; 2260 \ 1 GLOBAL ROUTINE SMGSCREATE_VIRTUAL_DISPLAY ( 

: 2261 15 1 NUM_ROWS, ! height 

3; 226 14 1 NUM_COLS, ! width 

: 226 16 1 NEW DISPLAY_ID, 

3: 22646 18 1 DISPLAY_ATTRIBUTES, 

; 65 ' ; VIDEO ATTRIBUTES, 

: $509 iS | ye * 

3; 2268 0 1 See 

: 1 ! FUNCTIONAL DESCRIPTION: 

: ‘ 1/ This routine creates a new virtual display -- returning its 

; 4 1! assigned display_id. Its initial contents are blanks with 

3 525. 1! video attributes set to those specified or zero. The cursor 

‘ 2 $ : : will be at row 1 column 1. 

; 3 8 : CALLING SEQUENCE: 

; 530 1 ret_status.wlc.v = SMGSCREATE VIRTUAL_DISPLAY ( 

3 531 1! NUM_ROWS.rl.r, ! Height 

3 5 § 1! COLS.rl.r, ! wid 

3 5 1! NEW _DISPLAY_ID.wl.r 

: 5 1! -DISPLAY_ATTRIBUTES.rl.rJ 

; 535 1! -VIDEO_ATTRIBUTES.rl.rJ 

: 2 : oCHAR_SET.rl.rJ) 

: 3 gi ! FORMAL PARAMETERS: 

: a9 ! ; NUM_ROWS .rl.r Number of rows in new virtual display. 

; 266 : ; NUM_COLS.rl.r Number of columns in new virtual display. 

: 544 1 WEW_DISPLAY_ID.wl.r Virtual display id of newly-created 

: se2 : virtual display. 

: rth ' : DISPLAY_ATTRIBUTES.rl.r The default display attributes. 

i 549 1 | SMGSM_BORDER if virtual display is to be 

: 239 : } displayed with a border. 

: 358 1 i SMGSM_TRUNC_ICON if an icon should be displayed 
: 337 ! when text overflows the display bounds. 
; 388 1! SMGSM_DISPLAY_CONTROLS if carriage controls (CR, LF, 
: 236 1! TFF, VT, HT) should be displayed instead 
3 557 1! of executed. 

3 328 : If omitted, none of the attributes will be set. 
; 560 1 | VIDEO_ATTRIBUTES.rl.r The default rendition code to be 

3 561 1! applied to all output to this display unless 

: 26¢ 1! overridden on a particular oytput call. 

3 565 1! If not supplied, default will be all zero (no 

; 564 1! attributes). 

: ae va 

3 ! alues: 

3 269 1! 
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SMGSM_BL INK displays characters blinking. 


SMGSM_BOLD displays characters in 
higher=-than-normal intensity. 


—_ — 2 


BNEW OO 


SMGSM_REVERSE displays cherecters in reverse 
video -- that is, ped the 
opposite default renditi 
the virtual display. 


SMGSM_UNDERLINE displays characters underlined. 


CHAR_SET.rb.r (COptional]. If provided, specifies the default 
character set to be used for this display. 
Recognized values are: 

SMGSC_UNITED_KINGDOM 

SMGSC"ASCII Tdefault) 

SMGSC_SPEC_GRAPHICS 

SMGSC-ALT_C 


HAR 
SMGSC_ALT_GRAPHICS 


on of 


PUPVIVPVSVSVSVSUSUSIOID 
enn > 3 


vag ae na ne ne Ae ee agen 
SSS MPL 3a 


5 IMPLICIT INPUTS: 

356 

591 NONE 

238 

332 IMPLICIT OUTPUTS: 

595 NONE 

39 

444 COMPLETION STATUS: 

599 Normal successful completion 


SS$_NORMAL 
L188_INSVIRMEM inayftictent virtual memory to allocate needed 
er. 
SMGS_INVERG Unrecognized Video Attributes 
or Unrecognized Display Attributes 
SMGS_WRONUMARG Wrong number of arguments. 


SIDE EFFECTS: 


sesecreres 
Br BAH BGR RII at a a 8 a ee ed ed ed ed ed ed ed ed 
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NONE 
10 BEGIN 
11 BUILTIN 
9 NULLPARAME TER; 
‘3 SSMGSVALIDATE_ARGCOUNT (3, 6); ! Test for right no. of args 
1g RETURN (SMGSSCREATE VIRTUAL_DISPLAY( 
1 -NUM_ROOS, 
18 ~NUM_COLS, 
1 -NEW DISPLAY_ID ' Gets the DCB address for the display created 
CIF ROT MULLPARAMETER (DISPLAY ATTRIBUTES) 
THEN DISPLAY ATTRIBUTES 
ELSE UPLIT(O)~) 
(IF NOT LPARAME TER(VIDEO_ATTRIBUTES) 
THEN .VIDEO_ATTRIBUTES 


SAGSDISPLAY LIN 


3; Routine Size: 


1 !<BLF /PAGE> 


NKS = Vi 
TUAL DIS 


(IF NOT NULLPARAME fER(CHAR_SET) 
THEN .CHAR set 
ELSE UPLITTO) ) ) ); 
! Routine SMGSCREATE_VIRTUAL_DISPLAY 


08 
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SMGRTL .BUGSRC JSMGDISLIN.B32;1 


-BLKB 1 
«LONG 
- LONG 
- LONG 


-ENTRY SMGSCREATE_VIRTUAL_DISPLAY, 
SUBB3, a3. CAP). L_DISPL Save nothing 
CMPB sé FF, #3 


BLEQU 
MOVL —#SMGS_WRONUMARG, RO 
CMPB (AP), 6 
BLSSU 
TSTL 4 (AP) 
BEQL $ 
PUSHL  CHAR_SET 
BRB 
MOVAB P.AAE, RO 
PUSHL 
CMPB_ (AP), #5 
BLSSU 
TSTL 20¢AP) 
BEQL = 4 
PUSHL —YIDEO_ATTRIBUTES 
BRB $ 
MOVAB P.AAD, RO 
PUSHL 
CMPB_ (AP), #4 
BLSSU 
TSTL 16 (AP) 
BEQL 
PUSHL —DISPLAY_ATTRIBUTES 
BRB 
V P.AAC, RO 
PUSHL 
MOVC  NUM_COLS, -(SP) 
PUSHL  NUM~ROWS 
CALLS #6, SMGSSCREATE_VIRTUAL_DISPLAY 
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ZS 


BITL ‘SMGSDELETE VIRTUAL_DISPLAY = Delete virtua agtey" 
GLOBAL ROUTINE SMGSDELETE_VIRTUAL_DISPLAY ( DISPLA = 


FUNCTIONAL DESCRIPTION: 


ee aa ee 
1 $0 


: This routine deletes a virtual display. It is automatically 
! ‘unpasted’’ from any pasteboards on which it is pasted and 

} its associated buffer space is deallocated. 

CALLING SEQUENCE: 

| ret_status.wic.v = SMGSDELETE_VIRTUAL_DISPLAY (DISPLAY_ID.rl.r ) 
| FORMAL PARAMETERS: 

DISPLAY_ID.rl.r Id of virtual display to be deleted. 
IMPLICIT INPUTS: 

NONE 

! IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 

' SMGS_INVDIS_ID Invalid display ‘ 

SMGS_WRONUMARG Wrong number of arguments. 

' 

‘ 


i SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
STATUS ! Status of subroutine calls 
CURR_PP : REF $PP_DECL, i Addr of current pasting packet 
0cB : REF $DCB_DECL; ! Addr of display control block 
SSMGSVALIDATE_ARGCOUNT (1, 1); ! Test for right no. of args 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get DCB address 
CURR_PP = .0CB COCB_A_PP_NEXT); 


'¢ 
: Lose through all pasteboards we're pasted to, undoing our Linkage to 
! each. 


le 
ILE -CURR_PP NEQ DCB CDCB_A_PP_NEXT] ! While any remain... 
oat ! Overall loop 
PBCB : REF $P3CB_DECL; ! Addr of pasteboard control blk 


AX-11 BL iss-32 0-742 
SMGDISLIN.B32;1 


SMGSDISPLAY_LIN SMG$ 
08r - SMG 
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DISPLAY LINKS = Virtual Display Linkages $Jan-19 5 #}:5 1 yard LS V4.0=742 
SDELETE_VIRTUAL_DISPLAY = Delete virtual dis 2-0ct-1984 12:58:17 SMGRTL .BUGSRC JSMGDISLIN.B32;1 
689 
4 PBCB = .CURR_PP CPP_A_PBCB_ADDRI; 
69 4 
69 : Update pasting packet pointer to next pasting packet, before 
o3e the unpaste operation makes current on go away. 
636 CURR_PP = .CURR_PP CPP_A_NEXT_DCB); 
6 3 '¢ 
$28 Now we can unpaste this Linkage. 
f 1 IF NOT (STATUS = SMGSSUNPASTE_VIRTUAL_DISPLAY ( 
7 5 -PBCB )) 
7 THEN 
f 5 RETURN (.STATUS); 


SS 


RIP IP IRIMFIAIPI PIPPI IPIPINIMAAPIPIPIPIPIPIPI PIP ALPIPIPIPIPI PIP PUPIRIWWIAIA ES BE 


a a a te nt 8 wt et 


ND UENO ODNOUS WO 


WMEun— 


ee ee ee ee i i 


~~ 
a 


END; ! Overall loop 


14 
‘ Bovine successfully severed our Linkage with all the pasteboards to 
! to which we were pasted, we can now get rid of the DCB itself. 
| Before we can delete this DCB we must check to see if there is a 
backup DCB in existance. If so, call outselves recursively to delete 
the backup DCB first. 

F_.DCB CDCB_A_BACKUP_DCB) NEQ 0 


N 
IF NOT ( STATUS SGROCOEL STE, VER TIM 01 OLS ( 
THE DCB COCB_A_BACKUP_DCBJ)) 


Ml 
RETURN (.STATUS); 


One remaining chore is to first release the buffer areas whose 
addresses are in the DCB. Recall that the two buffer (text and 
attr) were initially allocated as a double-size buffer and split in 
wo. This means we can return both at once by supp tying the address 
of the *he text buffer and a length equal to twice its size. 
IF NOT (STATUS = LIBSFREE_VM ( ZREF (2* .0CB COCB , BUFSIZE}), 
THE DCB COCB_A_TEXT_BUF JJ) 


N 
RETURN (.STATUS); 
t¢ 
: Free the line characteristics vector 


IF NOT (STATUS = LIBSFREE_VM (ZREF ( .0CB (DCB _w NO ROWS] +1), 
ae DCB COCB_A_LINE_CHARJY) 


N 
RETURN ( .STATUS); 


'¢ 
: Free the char_set buffer if there is one. 


IF .0C3 CDCB_A_CHAR_SET_BUF) NEQ 0 
THEN 


Pa 71 
9 14) 
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> 2495 4 IF NOT (STATUS = LIBSFREE_VM ( 0¢B FoCB.t Bur sized. 

; re is THEN DCB LOCB_A_CHAR_SET_BUFJ)) 

: 249 4 RETURN (.STATUS); 

: ner 

: 3 f § : If we have a dynamic string containing a border Label, free the string 
; 2 § 754 IF .DCB COCB_V_BORDERED) 

3 ape 755 THEN 

; 05 f § dt ! Bordered 

; 209 £38 DESC : REF BLOCK C8,BYTEJ; ! Pointer to dynamic string 
; 2508 7 ! descriptor in DCB 

3 4 760 DESC = ace COCB_Q_ LABEL_DESC); 

; 19 £6] 4 gpese DSCSA_POINTER] NEQ 6 

; 318 193 4 if war (STATUS = LIBSSFREE1_DD ( .DESC)) 

> 2514 765 RETURN (.STATUS); 

‘ 31? Ns] aa END; ! Bordered 

: 2517 768 2 | Now the DCB itself... 

3; 2518 769 ! Before freeing this area, we clobber the byte that makes it 

3: 2519 770 ' recognizable as a DCB. fhat wi. if someone inadvertantly tries to 
3; 2520 771 ' pass us this DCB address as a DCG after having ge \eted the virtual 
; : 1 a4 ; display, we can tell that it no longer is a valid OCB. 

> 25 g 774 2 DCB CDCB.B STRUCT ype) = 0; 

: ase $if? RETURN (CIBSFREE_OM (ZREF ( DCB_K_SIZE). DCB )); 

; $252 $378 1 END; ! Routine SMGSDELETE_VIRTUAL_DISPLAY 


001¢ .ENTRY SMGSDELETE_VIRTUAL_DISPLAY, Save R2,R3,R4  ; 2633 
54 000000006 09 9 ROVAR LJBSFREE_VA, RG ; 
01 CMPB. «CAPD, «#1 > 2073 
1 BEQL ~=ésé1$; ; 
50 000000006 &8F 00 ROVL #SMG$_WRONUMARG, RO 3 
50 04 8 06 MOVL ISPLAY_Io, RO : 267° 
04 BC 8 A cMPL 58 RO), SD1SPLAY_ID ; 
11 44 —=COA cRPB (RO), #17 : 
50 000000006 gf p ROVL #SMG$_INVDIS_ID, RO : 
04 A 6 Bc D MOVL § @DISPLAY_ID, DCB : 
; AE D MOVL B, R2 : 2677 
0 A MOVL (3), CURR_PP : 
1 A MOVAB (RO), R > 2684 
1 3 oj CMPL CURR_PP, R1 ; 
4 BEQL F 


$ ISPLAY_LIN SMGSDISPLAY KS = 
in09? SMGSDELETE OrRTU 


3} 


0000v CF 
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61 

04 AE 3¢ A 
64 
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04 AE 


000000006 99 
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3; Routine Size: 205 bytes, 
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ZSBITL ‘SMGSGET_DISPLAY_ATTR = Get display attributes’ 
GLOBAL ROUTINE S — : 


i FORMAL PARAMETERS: 


-Oct-1 
MGSGET “DISPLAY LATTR ( 
DISPLAY 
HEIGHT, 
WIDTH 
DISPLAY_ATT 
VIDEO_ATTRI 
CHAR Ost 


'e4 
: FUNCTIONAL DESCRIPTION: 


This routine returns attributes of the virtual display. 


i CALLING SEQUENCE: 


ret_status.wlc.v = SMGS$G 


ATT TRIBUTES. wl ivr} 


Teale 
LAY {ATTRIBUTES .wl.rJ 
WSET.wl.rd) 


DISPLAY_ID.rl.r The id of the display for which the 
information is requested. 
HEIGHT.wl.r Height of display in rows 
WIDTH.wl.r Width of display in columns 
DISPLAY * sbcemeate ra rf Get tonal. If provided, the current 
ny td oe attributes will be returned. 
e may Le 


BREGR BORDER if display is displayed with a 


VIDEO_ATTRIBUTES.wl.r Optional. If provided, the current 
default video attributes are returned. These 
values may be: 


SMGSM_BL INK displays characters blinking. 


SMGSM_BOLD Sisptere characters in 
er-than-normal intensity. 


SMGSM_REYERSE d}splays corer in reverse 
opposite Cofault has RR of 
e virtual display. 
SMGSM_UNDERLINE displays characters underlined. 


CHAR_SET.wb.r Optional. If provided, the current default 


SNGRTL BUGSRCISMGD ISL IN. 832;1 
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NGL S"ea! Slater Wehtecte, EARCHOEE DSSECIS GR Wat 


-Oct-1 


§ Y4 0-742 
SMGRTL .BUGSRC JSMGDISLIN.832;1 


character set code is returned. 
Possible values are: 


IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


COMPLETION STATUS: 


SS$_NORMAL 


SMGSC_UNIT 
SMGSC_ASCI 
SMGSC_SPEC 


ED_KINGDOM 
I Tdefault) 
GRAPHICS 


SMGSC"ALT_CHA 


SMGSCTALT~ 


SMGS_WRONUMARG Wrong number of arguments 
SIDE EFFECTS: 


NULLPARAME TER; 


LOCAL 
DCB : REF $DCB_DECL; 


! Addr of 


SSMGSVALIDATE_ARGCOUNT (3, 6); ! Test for 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get DCB 


«HEIGHT = .DCB COCB_W_NO_ROWS); 
-WIDTH = .DCB COCB_W_NO_COLSJ; 


IF NOT NULLPARAMETER (DISPLAY ATTRIBUTES) 
THEN .DISPLAY_ATTRIBUTES = .0CB COCB_B_DEF _DISPLAY_ATTRI; 


IF NOT NULLPARAMETER (VIDEO_ATTRIBUTES) 


THEN .VIDEO_ATTRIBUTES 


= .0CB (OCB_B_DEF _VID 


if NOT NULLPARAMETER (CHAR_SET) 
HEN .CHAR_SET = .DCB ([DCB_B_DEF _CHAR_SET]; 


RETURN (SS$_NORMAL); 
END; 


6C 


! Routine SMGSGET_ 


03-83 doo02 


HAR 
GRAPHICS 


Normal successful completion 


display control block 
right no. of args 
address 


EO_ATTR); 


DISPLAY_ATTR 


ENTRY SMGSGET_DISPLAY_ATTR, Save nothing 
$ueB3 «#3, (APT, DIFF 


at ISPLAY_LIN snesols 
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USBTTL "SMGSLABEL BORDER - Specify Label for border’ 
GLOBAL ROUTINE SHCELABEL BORDER ¢” 


FIFTIES, 


22.3 


'4¢ 


i FUNCTIONAL DESCRIPTION: 


This routine allows the caller to spec tty 
be used with this oreo er - if the specifi 
— display attribute of SMGSM_BORDER, t 


Soeeee 


nee 


NO 


VFWN—OO°® 


If the text parameter is not supplied, this yireust display 
no longer has a border gout associated with it -- it becomes 
an unlabeled border. If a valid text string is provided, it 
replaces the aren ates text for this border. 

If the text (as positioned within the border) does not fit 
fully within the border, SMGS_INVARG is returned. 


E.g. 
ABE L 
) ee | 


PAPAS 
ww 
oo 

$: 


DOODDOOOVOS 
Doo ~c 


et ad oS oS oS 


REM SO ONO VNE WN 9 OSNOUS WO 


POSITION and UNITS as a pair specify the starting position of 
the label text within the border. 
If POSITION is omitted, the top border is assumed. If UNITS is 
omitted, a sporting position will be chosen so as to center the 
text either horizontally or vertically -- depending on implicit 
or explicit POSITION. 

both are omitted, the text will be centered in the top border 


SSEeSSTERES 


The following encoding is used: 
POSITION UNITS 


9 = Top border Line Starting column number 
= Bottom border Line Starting column number 
§ = Lore border Line Starting row number 

= Right border Line Starting row number 
Examples: 
POSITION=0, UNITS=4 POSITION=1, UNITS=4 


+--LABE Lowowooooooooesens 
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PL 

ABEL 
3 044 1!. H } } H 
; 59 11 H ' H ' 
: i ; i : : gowmemeaenmocuscaeccocasece } ¢--L ABEL enon no wewwoeconns 
5 48 1 | 
: , : 3s ! : POSITION=2, UNITS=3 POSITION=3, UNITS=3 
: 7 ¢ 1 1 i dames were ete mente om em en $ toro en seer es eawmmawrsreace 
# Bedi ee 
: $108 mii pay ‘ 
i gf 36 1 c E 
: 18 : 8 1-i 
3 71 0 5 1 ' poms omnes mweemn masse remcoa} $oweon Seman onaeanononas= + 
: Shi) er di 
; ari8 966 : CALLING SEQUENCE: 
3 2715 64 1 | ret_status.wic.v = SMGSLABEL_BORDER ( 
; a | 965 1! ISPLAY_ID.rl.r 
3; 27) 966 1! »LABEL_ TEXT. rt.dxJ 
: 718 7 1! POS TTON.r tr} 
Py 71 IOC 1 ! UNITS. rl.r 
3; 2720 969 1! eRENDITION_SET. rl. 
3; 2721 970 1! oRENDITION_ COMPLEMENT. rir.J 
: f ¢ 44 : } oCHAR_SET.Fri.rJ) 
i gfe 975 1 | FORMAL PARAMETERS: 
: 126 75 1 DISPLAY_ID.rl.r the display id id of the virtual display whose 
3: 27 976 1! s to be Labeled. This dis display must have 
$ i 4 : } oh sd attribute of SAGSA. 
3 27 579 1/ LABEL_TEXT.rt.dx C onal]. If s ona pha. becomes the new 
3 2731 980 1! la tT for this display’s border. If 
3 g $ 981 ! omitted, display becomes unlabeled. 
: 57 98S 1 i POSITION.ri.r [Opt ional. 
: 3735 5984 1 | Specifies which border will contain Label. 
3 5985 : : If omitted, default to top border. 
: 27 987 1 UNITS.rl.r COpt 
3 tt Ht } : Spee ities. where within the border the text Label 
; rai 5990 i Tt onftted: center in Line indicated by POSITION 
: 27% 992 1: RENDITION_SET.ri.r {Option 
: 2766 998 1! = feck 1 onal. attribute in this parameter 
3 2745 994 1! causes the gorcosopadiag attribute to 
3 reg 995 1! be set in the display, (See below for 
: 996 : : list of settable attributes.). 
: 57% 998 1 i RENDITION_COMPLEMENT.rl.r COpt ional. : 
3; 2750 999 1! Each 1 bit oo bute in this parameter 
3 2751 000 1! causes the corresponding attribute to 


14] 


PLAY 


a 
R 


"spec ae & some Baer MGT Wah Mtasa sheatalt, aszs1 Fag) 


a ISPLAY_LIN ot ng! 


7 e@ com nted in the display. (See . 
7 : pei Foret ist ot of complements ie 

, : attributes.) 

7 $ If the pene Ris is specified in both the gn tp ET parameter 
7 and in RENDITION_COMPLEMENT parameter, the appt cation is 

7 : RENDITIONS SET followéd by RENDITION complement. Using these two 
7 parameters together the tal er can exercise ae sh fe and 

760 néependens control over each attribute on a rete = 

761 attribute a attr bute basis he can cause the. follow 

768 ; transformat 

ree ; SET COMPLEMENT Action 

266 1 0 S55 paatane’ Attribute unchanged. 

76 1 1 Attribute set to ‘‘on'’ 

res 1 0 1 Attribute set to complement of 

7 1 current setting. 

770 1 1 1 Attribute set to ‘off’. 

ae 

77 Attributes which can be manipulated in this manner are: 


SMGSM LK isplays characters blinking. 
SMGSM_BOLD disp ays, characters in higher-than-normal 


SMGSM_REVERSE 'djsptays characters in reverse video -- that is, 
ust ng f hs site default rendition of the 
virtua 

SMGSM_UNDERLINE displays characters underlined. 


CHAR_SET.rl.r LOpttonat. If provided, the character set to 
be used in ht pany J the label. 
Recognized values a 

Smcse “UNIT ED_KINGDOM 
SMGSC_ASCII Toefault) 

SMGSC_ ~SPEC GR APHICS 

SMGSC_A AAR 

SMGSC— “ALT _ GRAPHICS 


DEVIN =O ODNANE WN OODONAVNES WHO 6 


IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION STATUS: 
$_NORMAL successful comple fen 
Snes" jwvoi 5 ID Tevet atia® virtual “display id 
SMGS~ INV posit and/or un $ when cone idered with 
Length Of ext results in a position that is 
e 


outs of the border area. 
SMGS_WRONUMARG Wrong number of arguments. 


ec ee ce ee a ee ed ce ed ee ed ee ee ce ee et ce ee ce ce a ee ce ee ce ee ce ed ed eB re ed ce ee ce ce ee ae ee ed ee ee ee ed ed eB eed & 


Oe ed ee ed et) tt tf? tt tt te te te te te Pe te te eee - 
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PAPAIN 
NONE WO OONAUS WOO 
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12859 SMGSLABEL_BORDER - Specify Label for border ~3et= 1980 $5:88:1 SMGRTL. 


3 1! 

$ 1 38 1 ! SIDE EFFECTS: 

: Sait BE | pene 

: \§ : 1 lee 

: gB1b BEGIN 

; 1g 5 LITERAL 

>; 281 K_SET_ARG = 5, 

3 18 K-COMP_ARG= 6; 

; 8 0 BUILTIN 

é ; 1 4 NULLPARAMETER; 

: 858 07 LOCAL 

3; 2824 07 LUNITS, ! Implicit or explicit UNITS 
>: 2825 074 LPOS, ! Implicit or explicit POSITION 
3; 28 $ 075 REND_CODE, ! Rendition to be applied to 
3; 28 ace ' border label 

>; 2828 07 STATUS, ! Status of subroutine calls 
3; 28. A DESC : REF BLOCK (,BYTE), ! Pointer to dynamic string 
3 oe ; 9 } Peper ‘eter n DCB for border 
Py J . 3a e e 

: +H tf DCB : REF SDCB_DECL; ! Addr. of display control block 
3 ; : ts SSMGSVALDATE_ARGCOUNT (1, 7); ! Test for right no. of args 
3 Ht 9 5 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of DCB 

: 28 '¢ 

3 33 Get a copy of the Label. 

> 2841 "DESC = DCB CDCB_Q_LABEL_DESC); | 
; 58 IF NULLPARAMETER (LABEL_TEXT) 

3 2844 09 THEN 

3; 2845 094 BEGIN ! No text specified 

: o6e 095 RETURN (LIBSSFREE1_DD ( .DESC)); 

; of 94 END; ! No text Specified 

: bcs 43 IF NOT (STATUS = LIBSSCOPY_DXOX (.LABEL_TEXT, .DESC)) 

: HEE 100 RETURN (.STATUS); 

F HY 1 < 16 

3 Bee : : Check to see if combination of POSITION and UNITS fit. 

; 836 105 : LPOS = ( IF NOT NULLPARAMETER (POSITION) THEN ..POSITION 

: Be ; ELSE 0); |! Default to top row 
; a3 1 CASE .LPOS FROM SMGSK TOP TO SMGSK_RIGHT OF 

: 2861 110 CSMGSK TOP. SNGSK_BOTTOM): ! Top o* bottom row 

; 4 118 r LUNITS = ( IF NOT NULLPARAMETER (UNITS) 

: 11 4 THEN ..UNITS 

: 5 114 4 ! Center horizontally 


$D 
$L 


MEW $9 ODVOVE WH "OOO NOU 


$Ssss 


CDOO 


w 
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(¢ DEBCOCE_W.KO_COLS3 -.DESC CDSC$W_LENGTH]) 
/2)+2)3 


UNITS LEQ 0 OR 
gtunits + .DESCCOSCS$W_LENGTH] GTR .DCB COCB_W_NO_COLS] +2 
BEGIN 
LIBSSFREE1 DD (.DESC) ; ! Release our dynamic string 
AN (SMG$_INVARG) ; 


CSGSK LEFT .SAGSK RIGHT: ! Left or right column 
LUNITS = ( IF NOT NULLPARAMETER (UNITS) 
THEN NITS 


a6 Cf Center porag ty 
CC OEBCECEY_MO_ROUS ~.DESCCDSC$W_LENGTH]) 


IF .LUNITS LEQ 0 OR 
-LUNITS + .DESCCOSCSW_LENGTH] GTR .DCB CDCB_W_NO_ROWS) +2 


THEN 
BEGIN 
LIBSSFREE1 DD (.DESC) ; ! Release our dynamic string 
RETURN (SMGS$_INVARG); 
END; 
COUTRANGE J 


RANGE]: 
res RETURN (SMG$_INVARG) ; 


DCB CDCB_B_LABEL_POS] = .LPOS; 
DCB COCB_W_LABEL_UNITS) = .LUNITS; 


'¢ 
! If UNITS parameter was omitted we centered the label. Make a note of 
: this fact so that if he later does a CHANGE _VIRTUAL_DISPLAY we can 

: ooere foager it in its new ‘center’. 


CONGO NEW "OOOO UE WOO 


V LABEL _CENTER) = 0; 
IF NULLPARAMETER™ (UNITS) 


N 
DCB CDCB_V_LABEL_CENTER) = 1; 


i Calc. REND CODE as a function of callers rendition arguments and 
: the defaulf® rendition in the DCB. 


wWwn— 


N= DONO EWN—"O 


1 
1 
1 
1 
1 
1 
1 
1 
1 


SSMGSSET_REND_CODE (K_SET_ARG, K_COMP_ARG); 
! macro to use caller's args if present 


DCB CDCB_B_LABEL_REND] = .REND_CODE; 


: Deal with alternate character set. 
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egiig tf és : 


1 
for border “Oct-19 2: AMER TL BURERe TSMC TSC 14.832:1 
IF NOT NULLPARAMETER(CHAR_SET) 


THEN 


BEGIN 
CASE ..CHAR_SET FROM SMGSC_UNITED_ KINGDOM 
TO SMGSC"ALT_GRAPHICS OF 


D_KINGDOM, 
GRAPHICS, 


DCB CDCB_B_LABEL_CHAR_SET] = ..CHAR_SET; 


CINRANGE, OUTRANGE): 
ie RETURN (SMGS_INVARG); 


END 
ELSE ! Use default for virtual Geet ay 

DCB CDCB_B_LABEL_CHAR_SET) = .DCB COCB_B_DEF_CHAR_SETI; 
DCB COCB_V_BORDERED] = 1; ! Force bordered attribute in case it 
! wasn't previously. 


We now need to recalculate the constants in the peseing packet. 
We may be making the transition from unbordered to bordered, so 
this virtual display now has a bigger footprint in the pasteboard 
buffer, and some display which previously was not occluded may now be. 
Even if we were prevtquaty bordered, the size and position of our 
anged. 

If we are not stches at the display level, recalc. pasting packet 
constants and initiate output. lse, just remember that we need to do 
it later when batch level drops to zero. 

IF .0CB COCB_L_BATCH_LEVEL) EQL 0 

THEN 


BEGIN ! Do it now 
i NOT (STATUS = SMGSSRECALC_PP_FIELDS ( .DCB)) 


RETURN (.STATUS); 
RETURN ( SMGSSCHECK_FOR_OUTPUT_DCB ( .DCB, SMGSC_LABEL_BORDER)); 
END ! Do it now 


ELSE 
BEGIN ! Defer the action 
DCB CDCB_V_PP_MISMATCH] =1; ! Remember for Later 
ND; T Befér the action 


RETURN (SS$_NORMAL) ; 
END; ! Routine SMGSLABEL_BORDER 


0OFC 00000 -ENTRY SMGSLABEL_BORDER, Save R2,R3,R4,R5,R6,R7 
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1-097 SMGSLABEL BORDER = Specify label for orig pont }o82 Fbieeile =| eaNcALE song otin B32:1 age 483 
57 000000006 MOV L snes DD : 
50 6¢ if Mis SUBB Hee , BI pe R : 3083 
6 1 Op CMPB DIFF, : 
18 1 BLEQU 1 : 
50 000000006 20 ig OWL #SMG$_WRONUMARG, RO ; 
50 04 BC DO OOO1A 1$ MOVL § @DISPLAY_ID + 3085 
04 BC 8 AO D 6 1 CMPL  56(RO), SDISPLAY. ID : 
06 1 BNEQ 2s 3 
11 AQ 9 00 CMPB 68(RO), #17 : 
8 13 00029 BEQL $ 3 
50 000000006 8F 00 00 : 2$ MOVL #SMG$_INVDIS_ID, RO F 
52 04 BC D0 00033 3$ MOVL § @DISPLAY_ID, DCB ; 
54 08 A 3F 0037 MOVAB 8(R2), pes SC + 3090 
02 6¢ 91 00038 CMPBss«CAP?), : 3092 
65 1F 000 BLSSU  4$ : 
08 AC DS 0004 TSTL  8C(AP) : 
06 12 0004 BNEO 4=s«SS$ : 
54 0D 00045 4$ PUSHL DESC + 3095 
67 01 FB 00047 CALLS #1, LIBSSFREE1_DD F 
04 OO04A RET : 
54 DD 00048 5$ PUSHL DESC : 3098 
08 AC DD 00040 PUSHL LABEL : 
000000006 00 02 FB 90050 CALLS #2, LTBSscoPY _DXDX : 
56 50 D0 00057 MOVL RO, STATUS F 
03 56 ES 0005A BLBS STATUS, 83 ; 
0108 31 0005D BRW 29 ; 
03 6c 91 90060 6$ CMPBs«CAP), #3 > 3105 
OB 1F 0006 BLSSU 7$ ; 
0c AC 03 0065 TSTL  12CAP) : 
06 13 00068 BEQL «= 7 : 
55 0c BC DO 0006A MOVL § @POSITION, LPOS : 
é 11 006 BRB 8$ , : 
D4 0 7$: CLRL —LPOS : 
03 00 5 CF 00072 8$: CASEL POS, #0, #3 + 3108 
0039 0039 000A 000A 00076 9$: WOR 108-98,~ : 
193-38" ; 
13$-9$ 3 
68 11 00 BRB 18$ > 3145 
04 C 91 00080 10$:  CMPB (AP), #4 : 3112 
B if BLSSU. _11$ : 
10 «AC ; TSTL  16(AP) F 
06 BEQL «=s«118 ; 
53 10 BC D MOVL QUNITS, LUNITS > 3113 
1% BRB 12$ : 
50 06 A2 3 11$ MOVZWL 6(DCB), RO > 3115 
: Hs mou sy: : 
30 ¢ svets #2. RO : 3116 
5 02 =A : VAB #(R0), LUNITS : 
4 } 12$ LEQ 7$ : 3118 
1 64 ¢ MOVZWL (DESC), R1 > 3119 
1 : ADDL2  LUNITS. R1 : 
0 06 A2 3 MOVZWL 6(DCB), RO : 
ss RB 6$ : 


84 


(16) 


Page 


¥ § V4.0-742 
SMGRTL .BUGSRCJSMGDISLIN.B32;1 — 


AX-11 Bliss-3 


ct-198e 13:58:13 


16 


SMGSLABEL_BORDER = Specify label for border 


DISPLAY_LIN SMGSDISPLAY_LINKS = Virtyal Oisplay Linkages 


SMCS 
1-09 


w 
a 
o 
Y 
4 
f=} 
2 
a a 
oO 
w . 
o 2 
za w 
ww w z=- 
a a e wa@ is 
a So av Raa 
‘ ~ wow . a 
wn - @ t _ ~ . 
to w av a w - So 
— w @Oa za ” uw te 
z ec wwenr aw a a 
. => MO Y «oO uu ava aoe z . . 
~~ =a - eac Yn wwo Vv So w —s 6 
ag = fr Oo at a 4 a *) -oOr wee 
cos * ess 2 ss. Oo wr we ~~ mi -O2 APAAM 
-~ WY RAPID AMR OO Lond mm -~ nv@ ~ ~ Ww ~ www 
= a §—-§ Ovetu vreOoca J — sn 2 ae 2 on 2 8a 2 & 
~ <£ = WwW N=wo ~ Ya a € a-~ <€«€ 26— 4 20a” atse 
B2APm-~RZMOQw + + MwWwZO ~- WwW 225 AM PO tee SRT RW N—LTOOS 
qTOT DMN~Y QO. 2A DY NRK Owen wT LOOK TO CNOWE 4 bts Smee ee tt oe 
wen — Ge Nw~ SB Be INSEE — OVS YU SRY VK VB SF SUNN Be CUCU BEY CUNCUNGe 
—J 3 =— «ad oe 
> BSsewcrw Bese WM Nu D> Noe => Nu DS ~ | = T—) 
= IVwWwOoOZoo NT... 3-3 + tet faut} 2 Po tet tat fy tet fed pote pee tat teh pe has 
VO-OF@OtBEMOCLOTaAECYOAYD OLO-OOFVO-OOVCO-OXEVOr-@Dw > 
et PA cea cos fe AA A A ce Pd 
a) wT mn ~o ~ woo one NN Lal wT 
oo — _ _ r- ee wm ~ ~~ ~ 
- ~OOLMOO Vee Th OU -— MND fe wVOO @uw DDOOW OSC QOwcosvoo ve 
<DOODDDO COC ISSO SSW eee OOO ee eet RRA 
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02 
10 
2 
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SET, 50(DCB) 


HAR 


50 000000006 &F 
Ae 
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ae ISPLAY_LIN ene DISELAY 
ABEL _BOR it = Specify labe 


1c OA 

0000v ; | 
6 
4 
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000000006 00 
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3; Routine Size: 387 bytes, Routine Base: 
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| 17B 31$ 
D 17F 
04 00182 
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« SMGSSRECALC_PP_FIELDS 
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STATUS, 3s 
STATUS. R 


#28 
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ae SMGSSCHECK_FOR_OUTPUT_DCB 
#8, 52(DCB) 
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ZSBTTL ‘SMGSMOVE VIRTUAL DISPLAY = Move previously pasted virtual display’ 


GLOBAL ROUTINE SAG 


'o¢ 


i FUNCTIONAL DESCRIPTION: 
pasted, i 
posit on specified 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 
DISPLAY_ID.rl.r 
PASTEBOARD_ID.rl.r 


PASTEBOARD_ROW.rl.r 
PASTEBOARD_COL.rl.r 
IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION STATUS: 


SMG$~1 
SMG$ 


SIDE EFFECTS: 


position where it is current e 
preserving the pasting order. If the display is not currently 
is pasted at the top of the pasting order in the 


S$S$_NORMAL Norma 
SMGS_INVDIS_ID Invel 
NVPAS_ID Invali 

Wron 


WR G 
SMGS_ILLBATFNC Display is be 


OVE _VIRTUAL_DISPLAY ( 


The specified virtual ble a is moved with respect to the 
Yy 


asted to the specified pasteboard 


his call is not permitted while display batching is in effect. 


Id of virtual display to be moved. 


The peesebeord id of the pasteboard on 
which the movement is to take place. 


Row on pasteboard which is to contain 
row 1 of the specified virtual display. 


Column on pasteboard which is to contain 
ee 1 of the specified virtual 
isplay. 


successful completion 


virtual display id. 
pasteboard id. 


number of arguments. Ratey 
ng batched, this operation is illegal. 


AX-11 Bliss-3 
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ear: 
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SMGSMOVE _VI “Oct-1 GRTL.BUGSRC JSMGDISLIN.B32;1 
; 3033 ij. NONE 
; 30: § lon 
3 5 5 BEGI 
; 0 ¢ BUILTIN 
; CALLG; 
; 3039 ee 
3 Bee $8 LOCAL 
: Be) +4 STATUS, ! Status of subroutine calls 
: beg 91 pp : REF $PP_DECL, ! Addr of the pasting packet 
3 Bee 3 DCB : REF $DCB_DECL, ! Addr. of display control block 
: Ree + PBCB : REF $PBCB_DECL; ! Addr of pasteboard control block 
: a4? 32 SSMGSVALIDATE_ARGCOUNT (4, 4); ! Test for right no. of args 
: 3049 38 1+ 
; 3050 98 : Get addresses of associated virtual display control block and 
; 3051 99 : pasteboard control block, validating both the display id and the 
; 026 ; BY } pasteboard id. 
; 054 3 8 } SSMGSGET_DCB ( .DISPLAY_ID, DCB); ' Get addr of DCB 
HY bee ; bz SSMGSGET_PBCB ( -PASTEBOARD_ID, PBCB): ' Get addr of PBCB 
: 3057 05 2 !+ 
3; 3058 ; 06 ! Give an error if the display is batched. 
3; 3059 307 t= 
3; 3060 308 
: $e) 310 i -DCBCDCB_L_BATCH_LEVELJ NEQ 0 
; 068 11 RETURN SMG$_ILLBATFNC; 
3: 3064 316 
; 3065 31 + 
3: 3066 314 ! Determine if this virtual healer is pi ready pasted to this 
3; 3067 315 2 ! pasteboard. If it is we can do the MOVE. If it isn't we'll do a 
; eee z1$ 2 ASTE at the specified position. 
; \3 IF NOT SMGSSLOCATE_PP( .DCB, .PBCB, PP) 
; 0 RETURN SMGSSPASTE_VIRTUAL_DISPLAY(.0CB,.PBCB, 
: 3073 : -PASTEBOARD_ROW, .PASTEBOARD_COL); 
: 16 
; ¢ : Set new row and column into pasting packet 
: 6 "pp FPP ROW = ,.PASTEBOARD_ROW: 
3 8 PP CPP_W_COL = ..PASTEBOARD_COL; 
: 1+ 
3 } Recalc. occlusions. 
: § ‘ a ( STATUS = SMGSSCHECK_OCCLUSION ( .PBCB)) 
; 4 RETURN (. STATUS); 
; '¢ 
3 ! Recalculate the transformation constants needed to copy this display's 


FREED ISPLAY LIN 


teat: 
. | Oe 
a | Of 


08 


SMGSDISPLAY LINKS 
SMGSMOVE _VIRTUAL_D 


- Virtual Display 
ISPLAY = Move previously past 


} buffers into the associated window's buffers. 
IF NOT ( STATUS = SMGSSCALC_PASTE_TRANSF (.PP)) 


RETURN (.STATUS); 


04 


44 


0000v 


0000v 
18 
1A 

0000v 


0000v 


go Bt 
ee 


inkages 


; 


16 
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“Oct-19 


RETURN (SMGISCHECK_FOR_OUTPUT_PBCB (.PBCB)); 


Ba 92:58: 


14 Yana Oi isez4 V4.0-742 
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! Routine SMGSMOVE_VIRTUAL_DISPLAY 


001C 00000 
rs 00000000" Fr 9E 00002 
E | 04 § 0009 
/ ss #1 tee 
50 000000006 a DO 00011 
04 00018 
50 oe BC 00 00019 
BC 8 AO 01 0001D 
06 12 00022 
wae Be 
50 000000006 a DO 0002A 
04 00031 
5 04 BC bdO 0003 
5 08 C b0 000 
A 19 Q003A 
64 0 01 tts 
5 14 0003F 
AG 0 £0 00041 
50 000000006 8F D0 Bee 
53 4 ASG D0 E 
% Ag Dd 38 
$0 000000006 aF 00 3 
SF 
400 F 6B 
- 
E oc ac 70 
C 6B 
CF 4 


mnanomnowwoon 


OBO OBI OOCoO fw 


1$: 


2s: 
3$: 


4$: 
5$: 


6$: 


7$: 


ENTRY SMGSMOVE 
MOV P 


VIRTUAL_DISPLAY, Save R2,R3,R4 
BD_L_COONT, R4 


(AP), #4 
#SMGS$_WRONUMARG, RO 


@DISPLAY_ID, RO 
56(RO), SDISPLAY_ID 


8(RO), #17 
WSMG$_INVDIS_ID, RO 


@DISPLAY_ID, DCB 
@PASTEBOARD_ID, RO 


RO, PBD_L_COUNT 
S$ 


RO, PBD_V_PB_AVAIL, 5$ 
#SMGS_IRVPAS"1D, RO 


D_A_PBCB[RO], PBCB 
25 0¢8) 


#SMGS_ILLBATFNC, RO 


#AM<R2,R3,SP> 
#3, SMGSSLOCATE_PP 


R 
PASTEBOARD_ROW, -(SP) 
#°M<R2,R3> 

#4, SMGSSPASTE_VIRTUAL_DISPLAY 


PP, R2 
@PASTEBOARD_ROW, 4(R2) 
@PASTEBOARD COL , 6(R2) 
# SHGSSCHECK_OCCLUSION 
STATUS, 


SHGSSCALC_PASTE_TRANSF 
STATUS, 8$ 


rae 8 


3225 


3295 


3302 


; 3303 


SPGSDISPLAY LIN 


REIN 


at at a a Ss 


NONE WN SO ODNOUL WR 


tc at at ot = oo Ls a 2 2 2 


WN 
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GLOBAL ROUTINE S$ 


UAL DISPLAY = Pa 


ee 


} FUNCTIONAL DESCRIPTION: 


e virtual d 
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ACSPASTE-VIRTUAL DISPLAY’ ( gered 
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ABCA! RGR HOMtagn SSECIME TSE Wath ale 


“Oct-19 


DISPLAY_ID, 
PASTEBOARD. 1D, 
PASTEBOARD-ROW, 

, PASTEBOARD~COL 
= 


The specified virtual display is ‘pasted’ (oriented 


with respect to) a pasteboard. 
i CALLING SEQUENCE: 


This makes the display visible. 


ret_status.wic.v = SMGSPASTE_VIRTUAL_DISPLAY ( 


i FORMAL PARAMETERS: 


DISPLAY_ID.rl.r 
PASTEBOARD_ID.ri.r 


PASTEBOARD_ROW.ril.r 


PASTEBOARD_COL.rl.r 


i IMPLICIT INPUTS: 


None 


i IMPLICIT OUTPUTS: 


None 


i COMPLETION STATUS: 


SS$_NORMAL 

SRGS-INVPAS“ID 
SMG$_WRONUMARG 
SMGS_ILLBATFNC 


i SIDE EFFECTS: 


Norma 
Inval 
Invalid pasteboard id. 
number of arguments. 
y is batched. 


Wron 
Disp 


Id of virtual display to be pasted. 


The peeteboord id of the pasteboard on 
which the pasting is to take place. 


Row on pasteboard which is to contain 
row 1 of the specified virtual display. 


Column on pasteboard which is to contain 
column 1 of the specified virtual 
display. 


4 eupcoesrul completion 


virtual display id. 


Soe =7/, 
SMGDISLIN.B32;1 


repaste oni 


¢ 
pest ngs his is necessary because we don’t want ambiguous pastings. 


can be at most one such pasting. The second time we are called this 
test will fail. 
SAGSSLOCATE pr -DCB, .PBCB, PP) 
RETURN (CALLG (.AP, SMGSREPASTE_VIRTUAL_DISPLAY)); 


RETURN SMGSSPASTE_VIRTUAL_DISPLAY(.DCB, .PBCB 
.PASTEBOARD_ROW, .PASTEBOARD_COL) ; 


END; ! Routine SMGSPASTE_VIRTUAL_DISPLAY 


ad as a at at 
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a SMGSPAST AVIA UAL DISPLAY = Paste virtual displ 0c t-1984 $3:08:16 SMGRTL BUERCTSNGD GS; 1.83251 . (18) 
3; 31 405 AP, 
3 188 4 CALLG; 
; 3160 4 
; 3161 4 3 LOCAL 
: 196 r STATUS, ! Status of subroutine calls 
; 164 at) PP : REF SPP_DECL, | Addr of the pasting packet 
3 ' reated. 
5 198 21 ocB : REF S$DCB_DECL, ! Addr® of display control block 
3; 316 414 wCcB : REF $WCB DECL, ! Addr. of window control block 
; 3168 415 PBCB : REF $PBCB_DECL; ! Addr of pasteboard control 
MB i hae 
3 if aig SSMGSVALIDATE_ARGCOUNT (4, 4); ! Test for right no. of args 
: 317 420 2 !4 
3: 3174 421 ! Get addresses of associated virtual display control block and 
; \?3 r g : re qartres block, validating both the display id and the 
3 ! eboar . 
3; 3177 424 By 
; 3178 425 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ' Get addr of DCB 
; 179 4 6 SSMGSGET"PBCB ( .PASTEBOARD_ID, PBCB); ' Get addr of PBCB 
; 181 428 2 !4 
3351 ¢ 9 ! Give an error if the display is batched. 
die ek 
; 185 2 IF gPcBCDCB_L BATCH LEVEL] NEQ 0 
: RETURN SMG$_ILLBATFNC; 
7 31 . 


PANAMA EELS WA.WAILAIPOPOPORIPUNOPIPUNOND 
Wr SOON WOOO. wm 
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R 


001C 0008 sENTRY SMGSPASTE VIRTUAL_DISPLAY, Save R2,R3,R4 
3 00000000° Fr 5 it3 MOV PBD_L_COURT, R4 
E 4 C2 00 SUBL #4,” SP 


K 16 
S$ ISPLAY_LIN SMGSDISPLAY_LINKS - Virtual Display Linkage ~Jan-1985 21:46:14 AX=-11 Bliss-32 V4.0-742 P 92 
engs3 SMCSPASTE. VIRTUAL DISPLAY = baste virtual displ ae Sa 73:28:18 USMGRTL-BUGSACISMGOISLIN.632;1 296 18) 
04 ? oC CMPB CCAP), #4 ; : 3418 
OF BEQL=s«é18 ; 
50 000000006 &F p6 MOVL #SMG$_WRONUMARG, RO : 
50 4 BC OD 1$: MOVL ISPLAY_ID, RO + 3425 
06 €C gs ts p CMPL 6(RO), SOISPLAY_ID : 
06 1 BNEO $ : 
11 a | ? é CPB (RO), #17 : 
50 000000006 gf Bo A 2%: MOVE WSMG$_INVDIS_ID, RO : 
52 04 BC D i 3$: MOVL  @DISPLAY_ID, DCB ; 
8 ¢ ; d056 MOVE @PASTEBOARD. 1D, RO ; 3426 
64 D1 003¢ CMPL Rd. PBD_L_COUNT : 
4 0003F BGTR 4 : 
08 44 AG £0 0041 BBS RO, PBD_V_PB_AVAIL, 5$ : 
30 000000006 BF 0 00046 48: Mov. #SAGS_IRVPAS-ID, RO : 
53 04 A640 D : 5$: MOVL pe A_PBCBCRO), PBCB : 
1c OA p Ist 28 (DCB) ; 3432 
50 000000006 oF v6 38 MOVL #SMG$_ILLBATFNC, RO + 3434 
400C 8Ff 8B 8080 6$: PUSHR #*M<R2,R3,SP> + 3446 
0000v CF 3 Fs 64 CALLS #3, SMGSSLOCATE_PP : 
06 0 €9 00069 BLBC : 
0000v CF 6c FA 906¢ cALLG (AP), SMGSREPASTE_VIRTUAL_DISPLAY + 3448 
7€ oc ac $0 0072 7$: Vo. PASTEBOARD_ROW, -(SP) : 3451 
OC 8B 0007 PUSHR #*M<R2,R3> ; 3450 
0000v CF 04 FB 00078 CALLS #4, SMGSSPASTE_VIRTUAL_DISPLAY : 
04 0007D RET + 3453 


; Routine Size: 126 bytes, Routine Base: _SMGSCODE + 118D 


; 3207 3454 1 !<BLF/PAGE> 
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SMGSDISPLAY_LINKS = Virtual Display Linkage 5-1 1985 21:46:14  VAX=11 Bliss-32 v4.0-74 
SMCSPOP. VIRTUAL DISPLAY = Poo sft td aes at ee ee Ate 


elete) ase 2-0ct-19 MGRTL .BUGSRC 


ZSBTTL ‘SMGSPOP VIRTUAL DISPLAY = Pop off (delete) a sequence of virtual displays’ 
GLOBAL ROUTINE SMGSPOP_DIRTUAL DISPLAY a q v play 


1s 
ASTEBORRD_1D 


~ vo 


+ 
FUNCTIONAL DESCRIPTION: 


This procedure deletes all the yirtuad displays on the specified 

peese ard, starting with the d opt ey specified, up ao 
igher-pasted display. Each of these displays is unpasted in 

in the course of doing the deletion. 


CALLING SEQUENCE: 


ret_status.wic.v = SMGSPOP_VIRTUAL_DISPLAY ( DISPLAY_ID.rl.r 
PASTEBOARD_ID.rl.r) 


FORMAL PARAMETERS: 
DISPLAY_ID.rl.r Address of the display id of the lowest 


pasted virtual display to be deleted. 
ALL higher-pasted displays are deleted 


as we 
PASTEBOARD_ID.rl.r Address of the pasteboard id involved. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SMGS_INVDIS_iD Invalid display id 
SMGS_INVPAS_ID Invalid pasteboard id 
SMGS$_WRONUMARG Wrong number of arguments 

SIDE EFFECTS: 
NONE 

BEGIN 

LOCAL 
STATUS, 
RET_STATUS. 


PBCB : KEF SPBCB_DECL, 


Status of subr. calls 


pecummated status during 
Pp 


00 
Address of a pasteboard 
control block 


DCB : REF $DCB_DECL, Address of a virtual display 


2 
MGDISLIN.832;1 


Mr 
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Wed we 
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a 
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wn 
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SMGSDISPLAY_ LINKS = Virtual Displa 
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Se 
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Yah inke es af g-Jan-19 5 ¢h:36:16 pete Bliss-32 V4.0-742 


SMGSPOP_VIRTUAL_DISPLAY = Pop off (delete) a “0c t-1984 
! control block we started with 
PP : REF SPP_DECL; ! Addr of 2 longwords that form 


' queue header in PP currently 
! under inspection. 


te 
check for right number of arguments. 

SSMGSVALIDATE_ARGCOUN” ( 2, 2); 
4 
: Get addresses of virtual display control block and pasteboard control 
block and validate them. 


SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB ); 
SSMGSGET_DCB ( .DISPLAY_ID, DCB); 


‘+ 
! Locate the pasting packet that reflects this pasting (if one exists) 
-PP is the base address of the pasting packet. 
IF NOT (STATUS = SMGSSLOCATE_PP ( .DCB, .PBCB, PP)) 
RETURN (.STATUS); 


'¢ 
Change packet address to address of queve header. 


PP = .PP + PP_PBCB_QUEUVE_OFFSE7; ! Start with specified packet 
RET_STATUS = SS$_NORMAL; ! Assume success to follow 


+ 
Batch the sequence of updates we are about to do. 


IF NOT ( STATUS = SMGSSBEGIN_PASTEBOARD_UPDATE_R1 (.PBCB)) 
RETURN (. STATUS); 


'¢ 


Loop for all pasting packets starting with this one to the last-pasted 
! one... 


‘ 
: WHILE .PP NEQ PBCB [PBCB_A_PP_NEXT) 
BEGIN ! For all displays that need to be deleted 


LOCAL 
STATUS, ! Status of delete calls 
PP_BASE : REF S$PP_DECL, ! Base address of the PP 
OCB : REF SDCB_DECL; ' Current virtual display that 


! needs to te deleted. 


'¢ 
! Calc. the base address of this pasting packet since the queue 
! headers for this part of the chain are not at relative 0 in 

! the pasting packet. 


4 
SNGRTL BUGSRCISMGD ISL 14.832; 1 


7 

$ $e 569 

3 4 570 

3 $2 $71 

3 6 276 

: $f 57 

; 3328 574 

: 3329 575 

; 333° 576 ; 
3 $3) 577 

3 ; $ 32/8 
zt Hi 

3 333¢ 3581 4 
: 3336 88 ; 
s 3337 358 

: 3338 3584 3 
: 3339 3585 3 
; 3340 3586 4 
3: 3341 3587 4 
; ee06 3588 3 
: 334 3589 3 
3 5344 3590 3 
: 3345 3591 3 
: 3346 3592 3 
3; 3347 3593 3 
3; 334 3594 3 
; 5 3595 3 
; 5 3596 2 
3 33 3597 2 
; 5 3598 ; 
; 3 3599 

3; 5 3600 2 
; 5 3601 § 
; 3 3602 

; 5 3603 2 
, 5 3604 2 
23 3605 1 


08 


1 
SMGEDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Bisplay Linkages Bey an-19 5 $h:86:18 rel Bliss-3 
1-0 SMGSPOP_VIRTUAL_DISPILAY = Pop off (delete) a se 2-0ct-1984 12:58:15 SMGRTL ..BUGSRC 
le 
PP_BASE = .PP = PP_PBCB_QUEUE_OFFSET; 
'¢ 
; Find DCB that is in this pairing. 
DCB = .PP_BASE CPP_A_DCB_ADDR); 
4 
! Delete this virtual display. cousing it to be unpasted from 
all pasteboards to which it is currently pasted. 
iF NOT ( STATUS = SMGSDELETE_VIRTUAL_DISPLAY ( DCB CDCB_L_DIDJ)) 
'¢ 
If no error yet, save this one. 
BEGIN 
fr te AStATUS THEN RET_STATUS = .STATUS; 
‘4 
: Walk this chain backwards, from the packet we started with 
: back to the head of the chain == since the most recently 
pasted displays are at the head of the chain. 
PP = .PP_BASE CPP_A_PREV_PSCB); 
END; T For all displays that need to be deleted 
IF NOT (STATUS = SMGSSEND_PASTEBOARD_UPDATE_R2 ( .PBCB )) 
RETUW (STATUS); 
RETURN (.RET_STATUS); 
! End of routine SMGSPOP_VIRTUAL_DISPLAY 
007C 00000 ENTRY SMGSPOP_VIRTUAL_DISPLAY, Save R2,R3,R4,R5,- 
56 00000000° Ff 3 0000 MOV PBD_L_ COUNT, R6 
5€ 4 C2 0000 SUBL a4,” SP 
02 6C 91 0000C CMPB. Ss (AP), 2 
08 13 QO00F BE QI. 
50 000000006 8F 4 bpoig +t #SMG$_WRONUMARG, RO 
50 08 C it 0019 1$: MOVL @PASTEBOARD_ID, RO 
A 19 0001D BLSS 
66 0 D1 OOOTF CMPL RO, PBD_L_COUNT 
92 14 00022 GTR 2$ 
44 Ab 0 €0 00024 BS RO, PBD_V_PB_AVAIL, 3$ 
50 000000006 BF bO 40089 2s: MOVL —-ASAGS_IAVPAS“ID, RO 


-0-74 
§smcb15. 1.832: 1 


: 3456 


3520 


3526 
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1 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages S-san-t9 5 21:46:14 AX-11 Bliss-32 V4.0-742 Page 9% 
1-097 SMGSPOP_VIRTUAL_DISPLAY = Pop orf leelete! 2 se 3001382 #3208318 SMGRTL.BUGSRCJSMGDISLIN.B32;1 919) 
55 4 A640 DO 00031 3$: MOVL § PBD_A_PBCBCRO), PBCB : 
0 4 BC DO 00 6 MOVL aDISPCAY ID, R : 3527 
04 8C 8 AO D1 OO03A CMPL 6(RO), SDISPLAY_ID : 
06 12 0003F BNEQ © 4$ : 
1 44 AO 91 04 CMPB $8(RO), #17 : 
9 13 0004 BEQL $ : 
50 000000006 8F 00 00047 4s: MOVL § #SMGS$_INVDIS_ID, RO : 
04 0004E RET : 
50 94 BC DO O004F 5S: MOVL § @DISPLAY_ID, DCB : 
4021 8F BB 0093 PUSHR #*M<RO,R5,SP> : 3533 
0000v CF 3 FB 0005 CALLS #3, SMGSS$LOCATC_PP : 
33 g D0 0005¢ MOVL RO, STATUS : 
4 E9 0005F BLBC STATUS, 9$ : 
6E 08 CO 9062 ADDL2 #8, PP : 3540 
54 01 DO 0006 MOVL #1, RET_STATUS : 342 
50 5 p00 00068 MOVL PB : 354 
000000006 00 16 00068 JSB SMG$$BEGIN_PASTEBOARD_UPDATE_R1 : 
53 0 DO d9071 MOVL RO, STATUS : 
33 53 £9 00074 BLBC STATUS, 9$ : 
55 6E D1 00077 68: CMPL PP. PBCB : 3555 
1F 13 QOO7A BEQL 8$ ; 
52 SE 08 c3 0007¢C SUBL3 #8, PP, PP_BASE : 3570 
50 10 A2 00 00080 MOVL  16(PP BASES, DCB : 35 
38 AO 9F 00084 PUSHAB 56(DCB) : 35 
FB98 CF 01 FB 00087 CALLS #1, SMGSDELETE_VIRTUAL_DISPLAY ; 
06 50 €E8 0008C BLBS = STATUS, ; 
03 54 €9 O008F BLBC  RET_STATUS, 7$ : 3587 
54 50 90 00092 MOVL STATUS, RET_STATUS : 
6E 0c A2 DO 00095 7$ MOVE § 12(PP_BASE)> PP > 3595 
DC 11 00099 BRB 6$ : 3555 
50 55 DO 00098 8$ MOVL  PBCB, RO : 3599 
000000006 00 16 0009E JSB SMGSS$END_PASTEBOARD_UPDATE_R2 : 
53 50 DO O00A4 MOVL RO, STATOS ; 
04 53 E8 OO0A7 BLBS STATUS, 10$ : 
50 53 D0 OOOAA 9S: MOVL STATUS. RO > 3601 
04 OO00AD RET F 
50 54 DO OOOAE 10$: MOV. = RET_STATUS, RO > 3603 
04 00081 RET : 3605 
; Routine Size: 178 bytes, Routine Base: _SMGSCODE + 120B 


; 3360 
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on PASTEBOARD_ COL” 
' 


'e4 
FUNCTIONAL DESCRIPTION: 


AX-11 Bliss-3 
SMGRTL .BUGSRC 


LINKS = Virtual Display Linkages B-Jan-1985 ¢}: e6:18 
MGSREPASTE_VIRTUAL_DISPLAY = Repaste virtual d 2-0ct-1984 12:5 
1 SSBTTL utine’ caus VIRTUAL DISPLAY = Repaste virtual display to pasteboard' 
GLOBAL ROUTINE SMGSREPASTE “VIRTUAL DISPLAY ( 


§smebisLiN. 832;1 


The apoee ree, yieeual display is ‘‘unpasted"’ from the specified 


aste 
Cone a eneted ynpast ne.en re 
cover of MGS$BE IN, ph reBOARD UPDAT 


oard. It en wepgste - cc the new position to the 
epastin . eration is done 


under 
SMGSSEND SASTEBOARD aUFDATE 2 pal r so that there is no effect on the 
e 


screen while it is going ER 
operation become visible. 


i CALLING SEQUENCE: 
ret_status.wlc.v = SMGSREPASTE_VIRTUAL ria 


i FORMAL PARAMETERS: 


! 

' 

' 

' 

' 

' 

1 

! 

1 

' 

i] 

' 

' 

' 

' 

i] 

! 

1 

DISPLAY_ID.rl.r Id of virtual display to be repasted. 
: PASTEBOARD_ID.rl.r The } pesheteore id of the pasteboard on 
‘ +o ch the unpasting/pasting is to take 
place. 

i PASTEBOARD_ROW.rl.r Row on pasteboard which is to contain 
! row 1 of the specified virtual display 
: after repasting. 

‘ PASTEBOARD_COL.rl.r Column on pasteboard which is to contain 
: column 1 of the specified virtual 
display after repasting. 

IMPLICIT INPUTS: 

None 

i IKeLICIT OUTPUTS: 

; None 

COMPLETION STATUS: 

i Normal successful completion 

: sacs INVDI S_ID Invalid virtual display id. 

: snes. INVPAS-ID Invalid pasteboard id. 

} MG$_WRONUMARG Wrong number of arguments. 


nly the completed results of 


1 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages b-san-t9 5 21:46:14 AX-11 Bliss- 4.0-74 
1-097 SMGSREPASTE_VIRTUAL_DISPLAY = Repaste virtual d meet $3368: 18 YEMGRTL BUCEREISHcD ys: 14.832;1 Page 285 

132 ree } SIDE EFFECTS: 

ae be Sloe 

; : 7e8 BEGIN 

3 5 £55 LOCAL 

a58 $001 DCB : REF $DCB_DECL, 

427 ors PBCB : REF $PBCB_DECL, 

oss 30h? STATUS ; ! Status of subroutine calls 

486 3678 SSMGSVALIDATE_ARGCOUNT (4, 4); ! Test for right no. of args 
43 677 SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 

3435 678 SSMGSGET-DCB(.DISPLAY_1D,6CBS; 

3236 680 '¢ 

3436 681 : Set up an extra level cf output inhibiting so that our UNPASTE 
see re } operation won't find its way to the screen until we're done. 

3439 it " IF_NOT (STATUS = SMGSSBEGIN_PASTEBOARD_UPDATE_R1 (.PBCB)) 

3441 686 RETURN (.S1TATUS); 

3442 3687 te 

see 3690 Unpaste it from where it is. 

3 691 ca” (STATUS = SMGSSUNPASTE_VIRTUAL_DISPLAY (.DCB, .PBCB)) 
3448 69 


BEGIN 
SMGSSEND_PASTEBOARD_UPDATE_R2 (.PBCB); ! Reduce buffering Level 
Sap (. STATUS); ' Return error 


3450 3695 
96 : 

4 

: Now repaste to the same pasteboard in a new position. 


STATUS = SMGSS$PASTE_VIRTUAL_DISPLAY(.DCB, .PBCB, 
-PASTEBOARD_ROW, .PASTEBOARD_COL); 


DAA 


'¢ 
Undo one buffering level so that we are back where we started. 


SMGSSEND_PASTEBOARD_UPDATE_R2 (.PBCB); 


ry IIIIIIS AWA 
St FERRER EEES 
SOOONOUEWN— 


AAA 
uw 


'¢ 
! If last PASTE operation yielded an error, return that status, else 
return SS$_NORMAL; 


IF NOT .STATUS THEN RETURN .STATUS; 
RETURN (SS$_NORMAL); 
END; ! Routine SMGSREPASTE_VIRTUAL_DISPLAY 
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SMGSDISPLAY_LIN SMGSDISPLA 
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, 4 
LINK Display Linkages =Jan-1985 21:46:1 AX-11 Bliss-32 V4.0-7 
SMGSREPAS IRT = Ropes ety 1 #): + és ‘ 


Y S$ = Virtual & Page 99 
E_VIRTUAL_DISPLAY = Repaste virtual d 58:1 SMGRTL ..BUGSRC JSMGDISLIN.B32;1 (20) 


00FC 00000 ENTRY SHGSREPASTE_VIRTUAL_DISPLAY, Save R2,R3.R4,-; 3608 
7 0G 00 9€ MOVAB SMGSSEND_PASTEBOARD_UPDATE_R2, R7 : 
2 Booosseo® ee 0005 MOVAB PBDL COUNT: REO nee 
04 ? 8 i care (APY, #4 3; 3675 
50 000000006 8F pO 0013 MOVE #SMG$_WRONUMARG, RO : 
50 08 BC DO 00010 1$: MOVL QPASTEBOARD_ID, RO : 3677 
OA 19 0 | BLSS $ ; 
66 D1 CMPL RO, PBD_L_COUNT : 
14 000 6 BGTR $ : 
08 4a a6 0 £0 00 BBS RO, PBD_V_PB_AVAIL, 3$ : 
50 000000006 &F BO 00 D 28: MOVL #SMG$_IRVPAS"1D, RO ; 
54 04 A640 00 09 5 38: MOVL §PBD_A_PBCBCRO], PBCB : 
50 04 BC DO A MOVL aDISPCAY_ID ; 
046 &C 8 AO 01 000 ; CMPL  56(RO), SDISPLAY_ID ; 
06 12 0004 BNEQ : 
11 hh a0 91 90043 CMPB 8(RO), #17 : 
08 13 00 BEQL 3 
50 000000006 8F v6 MOVL § #SMGS_INVDIS_ID, RO : 
4 0005 RET : 
55 06 BC DO MOVL  @DISPLAY_ID, DCB : 
50 4 00 MOVL : 
000000006 16 JSB SMGSE95GIN_PASTEBOARD_UPDATE_R1 : 
53 4 MOVL RO, STATUS 3 
2E 3 E BLBC _—« STATUS, : 
4 Do PUSHL PBCB : 
55 DD PUSHL DCB ; 
0000v CF 92 FB CALLS ae SMGSSUNPASTE_VIRTUAL_DISPLAY : 
53 9 D MOVL RO, STATUS : 
07 3 E BLBS STATUS, 6 : 
0 4D MOVL PBCB, RO : 
67 16 JsB MGSSEND_PASTEBOARD_UPDATE_R2 : 
7E oc aC 7D MOVQ §PASTEBOARD_ROW, -(SP) : 
4 dd PUSHL PBCB ; 
5 0D PUSHL DCB ; 
0000v cr 4 F CALLS #4, SMGSSPASTE_VIRTUAL_DISPLAY ; 
3 0D MOVL RO, STATUS ; 
50 4 p MOVL ; 
7 JSB SMGSSEND_PASTEBOARD_UPDATE_R2 : 
04 ; E BLBS STATUS, 8$ ; 
0 BO ROVL STATUS, RO : 
50 01 v0 MOVL #1, RO ; 
Ms RET : 


; Routine Size: 156 bytes, Routine Base: _SMGSCODE + 12BD 
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3 719 «#1 Restore physical screen’ 

: 720 1 GLOBAL ROUTINE SMGSRESTORE_PAYSICAL_SCREE 

3 721 #1 PAST EBOARD. ID, 

3 7 ¢ 1 Ay SPLAY_ID™ 

: 7 1 

: 724 1 S44 

3 f 5 ! FUNCTIONAL DESCRIPTION: 

: 7 § 1 i This routine reverses the effect of SMGSSAVE porary SCREEN, 
3 728 1 | yo putting the physical screen back to fhe sPeret nt it was 
: 729 1 at jus te or to the call to ee ate PuvSTcAL 

: 730 1: The disp ay id returned by SMGSSAVE_PAYSIC rac eREEN” a be 
: 1 : passed to this routine to allow eke “peakoretles to happen. 

: 4 $ i CALLING SEQUENCE: 

: 735 1 ret_status.wlc.v = SMGSRESTORE oPUrSic. SCREEN ( 

: 736 1! PASTEBOARD_ID.rl.r, 

: 737 1! DISPLAY_IDsrl.r) 

: 3494 738 «1: 

: 44 : FORMAL PARAMETERS: 

3 39 741 1! PASTEBOARD_ID.rl.r Address of a pasteboard id which is to 
3 be rg ; be ‘'restored’’. 

: oo 744 1 DISPLAY_ID.rl.r Returned display id + te to 

; 35 745 1! errore requested functio 

; $208 746 1: his must be the displa ord returned 
:; 350 eee 13 by SmGSSAVE *pHYSCIAL SCREEN. 

3; 3504 748 1: 

; 3505 $oep 1 | IMPLICIT INPUTS: 

: 3506 750 1: 

3; 3507 3751 1! NONE 

; 3508 ah26 1: 

3 $298 753 1 | IMPLICIT OUTPUTS: 

; 3510 754 1: 

3; 3511 755 1 NONE 

; 21g 736 1: 

3; 351 757 1 ' COMPLETION STATUS: 

3 3514 758 1: 

3; 3515 759 1: SS$_NORMA Normal successful Sanpletven 

; 3516 760 1! SMGS_ INVDIS 1D Invalid Display 

3; 3517 761 1! SMG$_ INVPAS_ID Invalid Pastebsard” Id. 

; 3518 762 1! 

3; 3519 763 1: 

3; 3520 7 1 ' SIDE EFFECTS: 

3; 3521 765 1: NONE 

: 35 ; 7 1: 

3; 35 767 1 ine 

3; 35246 7 1 

; 3525 7 BEGIN 

3; 35 $ 770 LOCAL 

; 35 771 DCB : REF S$DCB_DECL, } Address of virtual display control 
; 2 ; re ' block involved. 

: 239 oe PBCB : REF SPBCB_DECL, ! Address of pasteboard control biock 


—— ———————— 
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: ¢ 16 PP : REF SFP_DECL, ! Address of the pasting p pocket that 

: 7 i joins the vlrtust display to the 

: eae i ! pasteboard. 

; $ ’ STATUS; ! Status of subr. calls 

: 3538 é rs 

; +84 ! Validate number of arguments. 

; stp : SSMGSVALIDATE_ARGCOUNT( 2,2); 

: 4 '¢ 

: sti es ; Map pasteboard id into a PBCB address, and display id into a DCB addr. 

; 546 790 SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB) ; 

3 3547 791 SSMGSGET~ DCB ¢ SDISPLAY 107 DCB); 

>; 3548 a4 

: 3268 Ug | Seen ie ket that joins this virtual display with thi 

; Ocate the pasting packe at joins s virtua splay w s 

: ee) t3? : _pasteboard.. = sep 

: 338 rr § iF NOT (STATUS = SMGSSLOCATE_PP ( .DCB, .PBCB, PP)) 

: 3555 799 RETURN (.STATUS); 

3 228 800 

;_355 801 '¢ 

3001 PL1097 80 i Set the hardware scrolling region to be the whole screen. We have no 

2 O88 Bhat it iz idea what state it's currently in. 

7004 PL1097 05 : IF NOT (STATUS = SMGSSFORCE_SCROLL_REG (.PBCB, 1, .PBCB CPBCB_B_ROWS])) 

3005 PL1097 o6 THEN 

5008 PL1097 RETURN (.STATUS); 

3 PL1097 08 

; 3565-7 09 + 

3 208 10 i Determine best way to clear affected area. If the whole screen is 

; 356 11 i involved we erase the whole screen in one operation. If only part 

3 ae8 \ of the screen is involved, we have to do it a line at at time. 

; 254 eS oa “PP p fPP. W_FIRST_WCB_ROW) LEQ 

; yal 1? PP~W_LAST_| Qcs8 Row] GEQ Pece CPBCB_B_ AROWS) 

; 378 7 BEGIN ! Full screen involved 

3 3575 15 “Cleer the whole physical screen to get rid of what the non-SMG 

; 276 i user may have put there. 

; 78 § & if NOT (STATUS = SMGSSERASE_PASTEBOARD (.PBCB)) 

: : 4 RETURN (STATUS); 

; ; $ END ! Full screen involved 

; 3 1 § ELSE 

; : BEGIN ! Only part of screen involved 

; 3588 2 iClear only the part of the screen involved. We'll have to do 


'¢ 
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; 3589 ' it Line 

3; 3590 ' The coue x Ay o that should regi ly reside in module SMGMINUPD 

: 23) i. for modularity. However, it is here for now. 

; 338 LOCAL 

> 3594 WCB : REF SWCB_DECL; ! Addr of window control block 

: 95 i involved. 

3 37 WCB = .PBCB CPBCS_A_wCB); 

: 3599 


i For — iine involved, set curser to column 1 of that Line 


SOOONA NE WN "OOOO W $ 


SEPPPPE EPSP Be anaes 


600 
1 i and emit erase sequence. Settin "9 the cursor to column 1 of 
ote & the Line is necessay for non-V1T100 terminals. 
604 ; 
5 $ INCR 1 FROM .PP CPP_W_FIRST_WCB_ROW) TO .PP CPP_W_LAST_WCB_ROW) 
851 BEGIN ! Row by row 
3008 85¢ 
sts S27 5 "set cursor to column 1 of row .I. 
ee TH SMGSSF IND_MIN CyRsOR POS ( , 
ig Bee “WCB WCB_W_OLD_CUR_ROW], ' Current row 
14 858 -WCB CWCB-W"OLD-CUR-COL), ' Current col 
15 859 ' Desired row 
1g 860 i): ! Desired col 
ae . 
19 Bes i Get escape sequence needed to erase a line 


i 3655 
2 & 
; 5 
: $65 


i (Can't move this outside the APB since data is left 
! in memory that FIND_MIN_CURSOR_POS might touch. 


SSMGSGET_TERM_DATA(ERASE_WHOLE_LINE); 


Seeusar 
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Be Pe Se Se Se Se Se Se Be Ge Se Ge Se Ge Ge Se Se Ge Se Se Fe Se Se Ge Ge Ge Se Se Ge Ge Sees Se FH Se HSS 4 Se Oe Se 4 Oe Se esos eee SH Se Sete es @eeteecee 
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869 
87 '¢ 
Erase the Ith Line. 
IF NOT (STATUS = SMGSSOUTPUT ( Mie 
1 PBCB_L_CAP_L Ms 
¢ “a -PBCBLPBCB-A~ CAP ~burren §) 
¢ RETURN (.STATUS); 
END; ! Row by row 
END; ! Only part of screen involved 
0 i * pop off the virtual display that SMGSSAVE_PHYSICAL_SCREEN placed on 
1 a tep to cover everything up. 
5 IF NOT (STATUS = SMGSPOP_VIRTUAL_DISPLAY ( pier ay ID, 
3 iow PASTEBOARD. ID)) 


SAESDISPLAY. LIN eneepl 
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a 
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RETURN (.STATUS); 
RETURN (SS$_NORMAL) ; 


4b 


08 


0000Vv 


000000006 


31 


000000006 


! End of routine SMGSRESTORE_PHYSICAL_SCREEN 


O3FC 00000 


59 00000000" EF 
5 i 
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50 000000006 i 
50 04 BC 


OA 
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92 
AS 0 
50 000000006 8F 
33 04 A940 
0 8 
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11 he Ap 
50 000000006 aF 
50 68 BC 
4 A 


we 
Sune Ooo 


thi 2! 


SSosoooocococoss 


og re meet + 4 4 
OofOW—w CO fFoOoOf 


Srere 


WAM nom SO 


RS 
Pet. LC 

SP 
eee #2 
#SMGS$_WRONUMARG, RO 
@PASTEBOARD_ID, RO 
RO, PBD_L_COUNT 
2" 


RO, PBD_V_PB_AVAIL, 3$ 
#SMG$_IRVPAS“1D, RO 


PBD_A pacacRo] PBCB 
@DISPCAY_1D, RO 
56(RO), SDISPLAY. 1D 
(RO), #17 
#SMGS$_INVDIS_ID, RO 


@DISPLAY_ID, DCB 

PP 

53 “SnEsaLocATE _PP 
Tys 

sna -(SP) 


cB 
" SMGSSFORCE_SCROLL_REG 
RO, STAT 
statu . 6 
47(R2), #1 
95 (PBCB) , RO 
4 ) 


C8 
#1, SMGSSERASE_PASTEBOARD 
RO, STAT 

Atus, 128 


8(PBCB), WCB 


RS ROT REGRS PHYSICAL_SCREEN, Save 
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; 3720 


3705 


; 3790 


; 3791 


3797 


3805 


3814 
3815 


3822 


824 
841 
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2899 SMGSRESTORE-PHYSICAL_ 


000000006 


10 


000000006 


000000006 
AS 


FD94 


; Routine Size: 300 bytes, 


3; 3651 


3895 1 !<BLF/PAGE> 


1 


Routine Base: 


o 
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&-oo 
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: 


Teal 5 
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SMGSCODE + 1359 


=-Jan-19 
“Oct-19 


5 21:46:1 AX-11 Bliss-32 V4.0-742 
2 $3288: 18 YSMGRTL BUCSREISMGOGS, 14.832;1 
MOVZWL 49(R2), RB 
VAB geeieatey. R? 

MOVAB 64 (PaCB), R6 

MOvcWL 47(R2), | 

DECL : 

BRB 1$ 

PUSHL #1 

PUSHL 

CVTWL 4 ©38(WCB), =(SP) 

CvTWL 46 36(WCB), =(SP) 

PUSHL pace 

CALLS #5, SMGSSFIND_MIN_CURSOR_POS 
TSTL (R?) 

BNEG 9$ 

CLRL = (R6) 

BRB 10$ 

CLRL __—sINPUT_ARGS 

PUS INPUT ARGS 

PUSHL 60(PBCB) 

SHL oR 

PUSHAB 2 $<PBCB) 

MOVZ2WL #475, 16(SP) 

PUSHAB 16(SP) 

PUSHL 

CALLS #6 SNGSGET_TERM_DATA 
BLBC status 15$ 

PUSHL 260(PBCS) 

PUSHL  (R6) 

PUSH pace 

CALLS #3, SMGSSOUTPUT 

MOVL RO, STATU 

BLBC STATUS, 13$ 

AOBLEQ R8, I, 8$ 

PUSHL PASTEBOARD_ID 

PUSHL DISPLAY I 

CALLS #2, SMGSPOP_VIRTUAL_DISPLAY 
MOVL RO, STATUS 

BLBS STATUS, 14$ 

MOVL STATUS, RO 

MOVL #1, RO 

RET 
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SMGSDISPLAY LINKS = V 
SMGSSAVE _PHYSICAL_SCR 


i 
E 
RSBTTL "SMGSSAVE 
GIOBAL ROUTINE 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


r 
EN = Save physical screen 2-Oct-19 
PHYSICAL SCREEN = Save physical screen’ 
GSSAVE_PAYSICAL_SCREEN ( 
PASTEBOARD_ID, 
DISPLAY_ID, 
DESIRED ROW START, 
_ROW_END 


t 
sf 


This routine should be called before setting @ procedure which 
Moy perform output to the screen without using the SMGS$ 

This procedure saves the state of the screen so that it can be 
restored via a later call to SMGSRESTORE_PHYSICAL_SCREEN. 


rote routine performs 4 functions: 


a). Creates a virtual display which is as wide as the 
physical screen and is as ~ y indicated by the 
desired_row_star* and desired_row_end. 

The resulting virtual display ic’ 7s returned 
to the caller. 


b). Pastes this virtual display to cover the screen at a 
position corresponding to column 1 of desired_row_start. 


c) 


Set the physical cursor to (1,1) in the virtual display. 
This corresponds to (desired_row_start, 1) on the 
physical screen. 


d). Set the physical scrolling region to be the height 
of the resulting virtual display. 


If either desired row start or desired_row_end are omitted, 
the first row of the physical display and fhe Last row of the 
prysicet Sheeley are used, respectively, in calculating the 
eight of the virtual display. 


The effects of this routine can be r 
SMGSRESTORE _PHYSICAL_SCREEN (Display 
supplying the display_id returned by 


versed by oorne 3 
id.rl.r, Pasteboard_id.rl.r), 
this routine. 


CALLING SEQUENCE: 


PASTEBOARD_ID.rl.r, 
ISPLAY ID.wl.r 
F DESIRED. ROu- START rt. r] 
»DESIRED-ROW-END.ri.rd) 
FORMAL PARAMETERS: 
PASTEBOARD_ID.rl.r Address of a pas:eboard id which is to 
be ‘‘saved"’. 
DISPLAY_ID.wi.r Returned display id invented to 


perform requested function. 


ual Display Linkages b-san-1985 $):36:16 AX-11 Bliss-3 


SMGRTL .BUGSRC ISMGDISLIN.B32;1 
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1-09 SMGSSAVE_PHYSICAL_SCREEN = Save physical screen 2-0ct-1984 12:58:15 SMGRTL .BUGSRC)SMGDISLIN.B32;1 (22) 

: 3710 953 1! ; 4 
s Srha 954 1! DESIRED_ROW_START.rl.r Optional. The address of the Ist row 3 4 
: wg 955 1! to be ‘saved’. If omitted, row 1 of : 4 
3 ae 328 ; } the physical display is used. ; , 
; 3715 328 17 DESIRED_ROW_END.rl.r Optional. The address of the last row : 4 
: re 959 1! to be ‘saved’. If omitted, the last : 4 
; 3571 960 1! row of the physical display is used. s 4 
: 3718 961 17 ' IMPLICIT INPUTS: 3 4 
3; 3719 966 1! 3 4 
; 3720 965 1! NONE > 4 
3; 3721 964 1 ! 3 4 
3208 965 1 | IMPLICIT OUTPUTS: 2 4 
g or +e ' 3 3 4 
3: 3726 97 1! NONE z 4 
: 3725 968 1! : 4 
: 3726 969 1 ! COMPLETION STATUS: : 4 
: 3 7 970 1! 3 4 
3 f : 44 : SS$_NORMAL Normal successful completion 3 ‘ 
; HY 338 1 ! From: SMGSCREATE_VIRTUAL_DISPLAY s 4 
; Hi 1 sd ! LIBS_INSVIRMEM Insufficient virtual memory : ‘ 
; 37 976 1 ! From: SMGSPASTE_VIRTUAL_DISPLAY 3 4 
: 37 977 1! SAGS_INVPAS_ID Invalid Pasteboard Id. : 4 
: 3735 978 1! 3 4 
; 37 979 1! 2 4 
3: 3737 980 1 ! SIDE EFFECTS: 3 4 
; 3738 981 1! 3 4 
3; 3739 982 1! The appropriate part of the fozsicet screen will be blanked. | 3 4 
: 3740 985 1! scrolling region will be full height of the past to be ‘’saved"’, 3 4 
3: 3741 9 iz and cursor will be at (desired_row_start,1) on screen. 2 4 
3 rot 985 1 !-- 3; 4 
3; 374 9 1 3 4 
3 3744 987 BEGIN 3 4 
3 3745 988 BUILTIN z 4 
3 . 989 NULLPARAME TER; 3 d 
: 3748 991 LOCAL 2 4 
3; 3749 99 ROW!, ! Resulting Ist row 7 4 
; 3750 99 ROWN, ; neous t Tae last row 3 4 
3; 3751 994 FULL_SCREEN, ' Logical indicating that we 3; 4 
; 375 995 ! are saving the whole screen. 3 4 
3; 375 eee PBCB : REF SPBCB_DECL, ! Address of pasteboard control 3; 4 
mB g a t 
3 £36 999 NEW_DCB : REF SDCB_DECL, ! Address of a display control 3 4 
; 375 4000 ' block. This will also 3 4 
; 3758 4001 ' become the display_id 3 4 
; 3759 400 ! returned. 3 4 
; 3760 400 3: 4 
3 3761 4 STATUS; ! Status of subr. calls 3 4 
36 to06 3 if 
: :¢ : 

: 3764 é ! Validate number of arguments and get the PBCB that goes with the > 4 
3 70% $008 : Pasteboard id. : , 
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13 AX-11 Bliss-3 
77 SMGRTL .BUGSRC 


N 
-Jan-1985 21:4 

_PHYSICAL_SCREEN = Save physical screen sraet=19 4 $3388 

SSMGSVALIDATE_ARGCOUNT( 2,4); 

SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); 
4 
: Assume full screen case and intialize accordingly 
FULL SCREEN = 1; ! Assume full screen 

ROW] = 1; 

ROWN = .PBCB CPBCB_B_ROWS); 
'¢ 
: See which optional parameters were supplied and re-adjust assumptions. 


cen” NULLPARAMETER (DESIRED_ROW_START) 


BEGIN ! Desired_row_start specified 
FULL_SCREEN = 0; 

ROWT"= . .DESIRED_ROW_START; 

END; ! Desired_row_start specified 


If NOT NULLPARAMETER (DESIRED_ROW_END) 


BEGIN ! Desired_row_end specified 
FULL_SCREEN = 0; 

ROWN”= ..DESIRED_ROW_END; 

ND; ! Desired_row_end specified 


te 
: If either of the optional row parameters were supplied, make sure 
we got a consistant range. 


ay FULL SCREEN 
BEGIN ! Validity check on rows 
IF .ROW] LSS 1 OR ! Start _off top 
-ROW! GEQ .PBCB CPBCB_B_ROWS) -1 OR ! need 2 Lines to scroll 
-ROWN L OR ! End off top 
-ROWN GTR .PBCB CPBCB_B_ROWS) OR ! End off bottom 
rei. OWN = .ROW! LSS 1 ! Wrong order 
RETURN SMG$_INVROW; 
END; ! Validity check on rows 
'¢ 
: Create a virtual display the same width as the physical screen and 
as high as desired. 
IF NOT (STATUS = snapecaeate VIRTUAL DISPLAY ( 
IREF (.PBCB CPBCB_W_WIDTH)), 


ZREF(O), 
ZREF(O), 


' # rows 

' # columns 

! new disp. id 

' default display act 
' default video attr 

! default alt char set 


RIAA AARIPIPINIPI IAI HANIA AI AI AAI AIP POPPI PIP NII PO PU PU nor. 


THEN 
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42 
cal screen 2-0ct- SMGRTL .BUGSRC SMGDISLIN. 832;1 


RETURN (.STATUS); 


'¢ 
i Paste newly-create virtual display to (desired_row_start,1) of 
: ‘_pasteboard. 


IF NOT (STATUS = SMGSSPASTE — DISPLAY ( 
NEW ' OCB address 
PACE, i Pasteboard control block 
ROW!, ' Row 
ZREF (1))) ' Col 1 


HEN 
RETURN (.STATUS); 


'¢ 
t Set physical scrolling region to be full height of screen. 


IF NOT (STATUS = SMGSSFORCE_SCROLL_REG ( .PBCB, ' Pasteboard 
ROW! ' Top row 
ROWNS ) ' Bottom row 
THEN 


RETURN (.STATUS); 


'¢ 
a Return id of newly-create virtual display to caller. 


.DISPLAY_ID = .NEW_DCB; 
RETURN (SS$_NORMAL) ; 
END; ! End of routine SMGSSAVE_PHYSICAL_SCREEN 


-ENTRY peeesaye pwr SICAL SCREEN, Save R2,R3,R4 


SUBBS3 #2, (AP), DIFF 
CMPB DIFF. #2 


MIVL § #SMGS_WRONUMARG, RO 
@PASTEBOARD_ ID, RO 
RO, PBD_L_COUNT 


S RO, PBD_V_PB_AVAIL 
#SMG$_IRVPAS"1D, bg > 


ie A pecerno). PBCB 
MOVL » FOLL_SCREE 
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714 AX-11 EL V4.0-742 Page 1 
:15 SMGRTL .BUGSRCJSMGDISLIN.B832;1 (22) 
4 : 
i (AP) : 

FULL_ SCREEN + 4027 
@DESTRED_ROW_START, ROW? : 40¢8 
(AP), #4 + 4031 
5$ : 
1CAP) : 

5 : 
FULL_SCREEN + 4034 
aDESTRED ROW. END, ROWN > 4035 
FULL SCREEN, $ : 4041 
ROW + 6044 

5(PBCB), RO + 4045 
6$ : 
ROWN + 4046 
#0. #8, 95(PBCB), ROWN : 40467 
#1, ROW1, RO : 6048 
ROWN, RO : 
#SMGS_INVROW, RO + 4050 
16(SP) + 46064 
16(SP) : 
16(5P) + 4063 
16(SP) : 
16(5P) + 4062 
16(SP) : 
NEW_DCB ; 4058 
90(PBCB), 20(SP) : 4060 
20(SP) : 
ROW], ROWN, RO : 4059 
1(ROS, 20(8P) : 
20(SP5 : 
#6, SMGSSCREATE_VIRTUAL_DISPLAY : 
STATUS, 8$ : 4058 
#1, 16<SP) : 4077 
16(SP) : 
ROW! : 4073 
PBCB : 407 
NEW_DCB > 4074 
#4, “SMGSSPASTE_VIRTUAL_DISPLAY ; 
STATUS, 8$ ; 4073 
ROWN ; 40 
ROW! ; 4 
Sa : 408 
#3, SMGSSFORCE_SCROLL_REG : 
STATUS : 
NFW_DCB, @DISPLAY_ID > 4 
#i,7R : 4 

: 4098 
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; Routine Size: 


; 3856 


SMGSDISPLAY 
SMGSSAVE_PHY 


251 bytes, 


4099 1 !<BL 


LINKS = Virtual Display 
SICAL SCREEN = Save phys 


Routine Base: _SMG$CO 
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; 3858 4100 1 ZSBTTL "SMGSSET DISPLAY SCROLL_REGION = Set scrolling region in a virtual disolay' ; 

; 3859 4101 1 GLOBAL ROUTINE SMGSSET_BISPLAY-SCROLL_REGION ( ; 

; 3860 4) ¢ 1 DISPLAY ° 

; 3861 4103 1 TOP_LINE Of REGION ; 

; 86¢ 4104 1 BOTTOM_LINE-OF_REGION : 

> 3864 4) : 1 i+¢ ¢ 

; 3865 4107 1 | FUNCTIONAL DESCRIPTION: ; 

; 3866 4108 1 ‘ 

>; 3867 4109 1! This routine ests the 5 Ay = atti ne of a ‘scrolling region’ : 

; 3868 4110 1! in a virtual display. e nGsPOT’ of on ree hos, used by : 

3 9 4111 1! output ret $ wnich scroll (SMGSP ] + i _SCROL ‘ 

; 3870 a118 1 i SMGSPUT ain ne advancing). ig routine. s called ‘ 

; 3871 4113 13 with ont ay a eat Hn Ry id, the sere’ les’ rele defaults to the ‘ 

: 387 aie : entire display. 

>; 3874 ais 1! If a top and bottom Line are passed, they must be within the 

; 3875 4117 13 Steele bounds. Scrolling can not occur outside the bounds of 

| it cok iim 1E= 8 tle 

:; 3878 4120 1! This routine does not change the appearance of the screen or the 

; 3879 $18) 1! cursor position. 

; 3880 41 ¢ 1! 

; 3881 tis 1! CALLING SEQUENCE: 

>; 388 4126 1! 

3 $68 4125 1! ret_status.wic.v = SMGSSET_DISPLAY_SCROLL_REGION L. 

; 3884 4126 1} ISPLAY_ID.rl.r 

s 3885 4127 1: TOP UTNE OF REGION. rl.rJ 

3 Hy) ? : -BOTTOM_ LINE-OF REGION. rl.rJ) 

; 3885 4130 1 | FORMAL PARAMETERS: 

; 3889 4131 1! 

3 44 a ¢ : ; DISPLAY_ID.rl.r Display id of desired display. 

g 389 4134 1: TOP_LINE_OF _REGION.rl.r Optional. The top Line of a scrolling 

3 ar 2 2 ! } region. Defaults to Line 1 of the display. 

; 3893 4137 1 BOTTOM_LINE_OF _REGION.rl.r 

3: 2896 4138 1! Optional. The bottom line of as rotting 

; 3897 4139 1! region. Defaults to the bottom Line of the 

3; 3898 4140 1! display. 

; 3899 4141 1! 

; 3900 bps 1! 

: reid 4145 1 ! IMPLICIT INPUTS: 

; 39 § 4144 1! 

; 3590 4145 1! NONE 

3; 3904 4146 1! 

; 3905 4147 1°! IMPLICIT OUTPUTS: 

3 bi 4148 1! 

; 390 4149 1! NONE 

: 308 £139 1! 

3 4151 1 ! COMPLETION STATUS: 

3; 3910 $136 1! 

3; 3911 41 1! SS$_NORMAL Normal successful completion 

: 91g 4154 1! SMGS_INVARG Bottom Line is less than or equal to top Line. 

; 391 $132 7! SMG$_INVROW Row number is negative or too large 

3; 3914 4156 1! SMG$_WRONUMARG Wrong number arguments. 
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Yancy Oh teen stone 742 
SMGRTL ..BUGSRCE sNGBISLIN. B32;1 


N 
NULLPARAMETER; 


LOCAL 

OP_LIN v ! working top Line 

BOTTOR ing ! working bottom Line 
a REE 6cB_ DECL; ! Addr. of display control block 
SSMGSVALIDATE_ARGCOUNT (1,3); 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); set pasrese of display control 
' bloc 
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14 
i Validate optional arguments. 


ae 


TOP_LINE = .0CB CDOCB_W_ROW_START]; ! init to default 
it wat NULLPARAMETER (TOP_LINE_OF _REGION) 


BEGIN 
IF oo TS -LINE_OF REGION GEQ .DCB CDCB_W_ROW START] AND 
-. TOP_LINE_OF “REGION LEQ .DCB COCB-W-NO_ROwS) 


EN 
sise te = ..TOP_LINE_OF REGION 
" RETURN (SMG$_INVROW); ! can't be outside display 


i 
Ww 
PUN =OSR ae 


RAREE 
—O0Oe~ 


BOTTOM_LINE = .DCB CDCB_W_NO_ROWS]; ! init to default 
rt NULLPARAMETER (BOTTOM_LINE_OF REGION) 


WAWAN.AA A 


EGIN 
IF ..BOTTOM_LINE_OF REGION GEQ .0CB COCB_W_ROW praqts AND 
TTOM-LINE-OF-REGION LEQ .DCB COCB~W-NO_ROw 


nN 
ns BOTTOM_LINE = ..BOTTOM_LINE_OF_REGION 
am RETURN (SMG$_INVROW); ! can't be outside display 


ee ce ed et ee ee cel ee ee el el ee ee el eel el cel cel eel eel ce eel cel cel eel cecal cel cel cel cl cel cel cect cele cel cel cel cls cel yal cls 
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IF .BOTTOM_LINE LEQ .TOP_LINE 
THEN 


RETURN (SMG$_INVARG) ; ! can't go backwards or 
i overlap 


SESSSSEZES 


'¢ 
x If we get here, we have a valid scrolling region. Store it. 
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SAGSDISPLAY LIN SMGSDISPLAY_LINKS = Virtual Disp Lay Linkages $-Jan-1985 21: 46:14 AX=11 Bliss-3¢ v4 

-09 SMGSSET_DISPLAY_SCROLL_REGION = crolling r 2-0ct-1984 SMGRTL .BUGSRC smeoeS, ta. 832;1 
: 397 4214 

: 397 4215 DCB [DCB_W_TOP_OF SCRR 3 6] = 

97h 4 1 DCB CDCB-W"BOTTOM~OF _SCRREG) OP ah Ne LINE; 

: 3976 4 18 RETURN (SS$_NORMAL); 

: 3977 4219 1 END; ! end of routine SMGSSET_DISPLAY_SCROLL_REGION 


0094 00 ENTRY SNGSSET DISPLAY _SCROLL_REGION, Save R2 
50 6C 1 83 §uBB3 #1, ( apy 
02 0 HI CHP DIFF, #2 
50 000000006 &F 06 3 ROVL #SMG$_WRONUMARG, RO 
50 4 BC DO 00018 18: MOVL DISPLAY_ID 
04 BC % Ad D} 0017 CPL 6(RO), SDISPLAY. ID 
11 AO 91 O01 CMPB B(RO), #17 
08 13 000 BEQL 
50 000000006 8F v6 0 4 2$: MOVE #SMG$_INVDIS_ID, RO 
50 04 BC dO 8 3$: MOVL § @DISPLAY_ID, pce 
32 60 3¢ 0 MOVZWL (DCB), er CINE 
. hE 00 sissu 48 
08 AC D5 00 TSTL ee 
15 13 00 BEQL 
08 Bc 60 10 0 FD CHV se #16, (DCB), @TOP_LINE_OF REGION 
08 BC 02 Ad 10 Q FD cP ZV , #16, 2(DCB), @TOP_LINE_OF REGION 
52 08 6C DO MOVL § aTOP_LINE_OF REGION, TOP_LINE 
51 8 Ao BC $2 48: ROVZML ZCDCB),GOTTOR_LINE 
$f 1F BLSSU  6$ 
0c AC 05 TSTL  12¢AP) 
1F BEQL $ 
0c ec 60 10 0 FD CMPLV #0, #16, (DCB), @BOTTOM_LINE_OF _REGION 
oc «BC 02 ad 10 0 f CMBZV #0, #16, 2(DCB), @BOTTOM_LINE_OF _REGION 
51 0c fs : ROVL OTTOM_LINE_OF REGION, BOTTOM_LINE 
50 000000006 &F 00 5$: ROVL #SMGS_INVROW, RO 
52 i D1 F 6$: chPL TTOM_LINE, TOP_LINE 
50 000000006 &F p0 ROVL #SMG$_INVARG, RO 
; B 7$: MOVW TOP_LINE acca) 
8 MOV BOTTO TOR. Line, 74(0¢B) 
1 06 : 


Page 113 
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; Routine Size: 152 bytes, Routine Base: _SMGSCODE + 1580 


SMGRTL. BUGS Sacismcb Lin. 832;1 Page by ; 


; 3978 4220 1 !<BLF/PAGE> 


2 
SAGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages $-Jan-1985 $) 36:18 yen EL V4.0-742 Page M3 
1-09 SMGSUNPASTE_VIRTUAL_DISPLAY = Unpaste virtual d 2-0ct-1984 58:1 SMGRTL .BUGSRCJSMGDISLIN.B32;1 (24) 
; 39 4221 1 XSBTTL otie’ sas VIRTUAL DISPLAY = Unpaste virtual display from pasteboard' 
; 3981 4 § 1 GLOBAL ROUTINE SMGSONPASTE_VIRTUAL_DISPLAY ( 
3; 39 § 4 1 DISPLAY_ID, 
; 9 4 4 , PASTEBOARD 1D 
4 3 
; 3985 4 § 1 !4¢ 
: B58 ri | : FUNCTIONAL DESCRIPTION: 
: 3988 4 8 1/ The specified virtual ei seley is ‘‘unpasted’’ from a pasteboard. 
; 3989 4230 1! Unpasting does not destroy the virtual qi splay or its contents. 
; 3990 4231 1! It merely removes its aeep tng to a particular pasteboard and 
3 a4! : § ! hence its visibility on that pasteboard. 
: 938 4 4 t CALLING SEQUENCE: 
: 3995 4 6 1! ret_status.wlc.v = SMGSUNPASTE_VIRTUAL_DISPLAY ( 
; 996 4 1! BISPLAY_ID.rl.r 
; sad 4 § i PASTEBOARD_ID.rl.r) 
: 3999 4 49 ; FORMAL PARAMETERS: 
; 4001 4 4g DISPLAY_ID.rl.r Id of virtual display to be unpasted. 
: toos 4244 1! PASTEBOARD_ID.rl.r The pespevsere id of the pasteboard from 
; reise : $2 : which the unpasting is to take place. 
: 4006 0529 1 i IMPLICIT INPUTS: 
3; 4007 4248 1! 
3; 4008 4249 1! None 
: 4009 4250 1! 
; 4010 4 3) 1 ! IMPLICIT OUTPUTS: 
: i ee 
3 ! e 
; 401 4254 1! 
$ rete} 2 36 : : COMPLETION STATUS: 
> 6016 4257 1! SS$_NORMAL Normal successful completion 
: 4017 4258 1 | SMGS_INVDIS_ID Invalid virtual display id. 
3; 4018 4259 1! SMGS_INVPAS_ID Invalid pasteboard id. 
3; 4019 4260 1! SMGS_WR G vrong number of arguments. 
3; 40 4261 1! SMGS_NOTPASTED Specified virtual display is not currently 
3; 4021 & $6 1! posted te the Spec fied pasteboard. 
3 rt ¢ ? 6 : } SMGS_ILLBATFNC Display is batched. 
3 49 4 4 $8 i SIDE EFFECTS: 
oe RIL we 
: 4 4 63 "BEGIN 
3; 4 4 y LOCAL 
3 2 : 2 g STATUS, ! Status of subroutine call 
; £9 Q 427 DCB : REF $D¢B_DECL, ! addr of display control block 
3 £0 ? a) PBCB : REF CB_DECL; ! Addr of pasteboard control block 
; i035 : g SSMGSVALIDATE_ARGCOUNT (2, 2); ! Test for right no. of args 


SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Vi 
Seen en SR ESUNPAS TEV SPLA 
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e 
lL Display Linkages B-Jan-t9 § 21:46:1 AX-11 Bliss-32 V4.0-742 

_VIRTUAL_DISPLAY =- Unpaste virtual d pon} 38? G3:88: 18 SNGRTL BUGERCTSNCD S, 14.832: 

14 

! Get addresses of virtual display control block and pasteboard control 

: block and validate display 3 and pasteboard id. : 


SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); 
1 aa of pasteboard control 


SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of virtual display 
! control block 


1+ 
Give an error if the display is batched. 
= -DCBCDL.8_L_BATCH_LEVEL) NEQ 0 
RETURN SMG$_ILLBATFNC; 
RETURN SMGSSUNPASTE_VIRTUAL_DISPLAY(.DCB,.PBCB) 


END; ! Routine SMGSUNPASTE_VIRTUAL_DISPLAY 
0004 .ENTRY SMGSUNPASTE_VIRTUAL_DISPLAY, Save R2 
52 00000000" EF 9F HOVAB PBD LC T> R2 
1 BEQL é 

50 000000006 8F 06 ROVE #SMGS_WRONUMARG, RO 
50 08 BC 09 MOVL QPASTEBOARD_ID, RO 

A 1 BLSS $ 
62 D1 CMPL RO. PBD_L_COUNT 

14 BGTR ~ 2 
08 46 a2 EO BBS RO, PBD V_PB_AVAIL, 3$ 
50 000000006 &F BO ROVL #SMG$_IRVPAS-1D, RO 
51 A240 D MOVL § PBD_A_PBCBCROJ, PBCB 
50 4 BC D MOVL DISPCAY_1D, RO 
04 aC 8 A cnPL ; (RO), SDISPLAY_ID 
11 4a OA ‘ CAPs (RO), #17 
50 000000006 gf v6 ROVL #SMG$_INVDIS_ID, RO 
50 % BC D MOVL ISPLAY_ID, DCB 
ic (A p TSTL (DCB) 

Q BEQL 
50 000000006 &F pO ROVE #SMGS_ILLBATFNC, RO 

93 BB PUSHR ‘#*M<RO.R1> 

0000v CF FB CALLS #2, SMGSSUNPASTE_VIRTUAL_DISPLAY 


ro it 


; 4222 
; 4276 


4282 


4286 


4293 
4295 
4297 
4299 


—n 
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ShESOISPLAY -LIN SMGSDISPLAY_ 
1-097 SMGSUNPASTE_ 


; Routine Size: 101 bytes, 


LINK 
VIR 


NKS = Virtual Display Linkages 


TUAL_DISPLAY = Unpaste virtual d 
-SMGSCODE + 1618 


Routine Base: 


; 4059 4300 1 !<BLF/PAGE> 


K 2 
9-Jan-19 
2-0ct-19 


5 
4 


2 
1 


1: 
2: 


58: 


14 
15 


VAX=-11 Bliss-32 V4. 0-742 
CSMGRTL.BUGSRC JSMGDISLIN.B32;1 
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TE_TRANSF = Calculate pasting tran 2-0ct-1 SNGRTL BUGERC ISMGDS Se 1W.832;1 5) 
$C 


ZSBTTL "SMGSSCALC_PASTE_TRANSF = Calculate pasting transformation constants’ 
GLOBAL ROUTINE SMGSSCALC_PASTE_TRANSF ( PP ' REF “SPP DECL d= 


i FUNCTIONAL DESCRIPTION: 


This procedure precalculates the constenty needed to efficiently 
copy portions of the text and attributes from the virtual 
gisplay butters located in the DCB to the window buffer located 


e 
This data is derived from the pasting rotattonehtp between 
the given virtual display and the pasteboard to which it is 
pasted. The calculated constants are stored in the pasting 
packet that reflects this pasting. 


CALLING SEQUENCE: 

ret_status.wic.v = SMGSSCALC_PASTE_TRANSF ( PP.mab.r) 
FORMAL PARAMETERS: 

PP.mab.r Address of pasting packet. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION STATUS: 

SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 

NONE 


BEGIN 
LOCAL 
TEMP : BLOCK (8,BYTE), Temporary representation of 

et ffer area as 
pre ected on window buffer. 

r of DCB involved. 
Addr of WCB involved. 
Addr 9 PBCB involved. 
Describes area of overlap 
between virtual display and 
window buffer. 


ocB : REF S$DCB_DE 
wCB : REF $WCB_DE 


CL. 
PBCB REF 8 bec 
OVERLAP : Brock fo Byied: 


PBCB = .PP [PP_A PBCB_ADDR] ; 
uce = Pace (Pace a ores: 
DCB = .PP PP_A_DCB_ADDR) g 


cm Ad 


13 
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$ ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages -Jan-1985 21:46:1 AX-11 Bliss-32 V4.0-742 P. 19 
$0659 SMGSSCALC_PASTE_TRANSF = Calculate’ pasting tran ae ree 1 $3:98:13 Usher TL BuceRe SMCs Sc 14.832; 1 age 345 
;_Mark the border Label as being invisible until it proves otherwise. 


PP [PP_W_LABEL_BYTES 2 ee z : 
= Vv; 


re 


ee 
— 


PP [PP"W"SRC_LABEL, OFF 
PP CPP“W"DST-LABEL “OFF 


TEMP [DCB_W_ROW START] = .DCB (DCB_W_ROW START] + .PP [PP_w_ROW)-1; 
TEMP [DCB-W-NO_ROWS) = .DCB [DCB-W-NO ROWS); 
TEMP [DCB-W-COC_START) = .DCB [DCB-W-COC_START] + .PP CPP_w_COLJ-1; 
TEMP CDCB-W-NO_COLS) = .0CB COCB-W"NO_COLS); 


te 
: Check to see what part (if any) of this virtual display maps onto 

: the viewable part of the pasteboard -- i.e., the area that goes into 
the window control block buffer. 


IF NOT SMGSSOCCLUDE ( 


WCB CWwCB_Q_COORD), ! Area of window buffer 
» ! Area of display buffer 
OVERLAP ) ' Area of overlap 
! Cif any) 


THEN 
peein ! No over Lae 
PP PP_W_ROWS_TO_MOVE] = 0 ; ! There are no rows to move 


i If the display isn't visible, the border label isn't visible 
! either. eee Not really true -- clean this up later tere 


| ehh ek et et ek ak et el at ek et et et at et et et at nt et et et at 


END ! No overlap 
ELSE 
ytyty ! Overlap 


DCB_START_ROW, st row of display buffer that Lands 
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;y 
$08 ! in window buffer. 
9 DCB_START_COL; ! Ist column of display buffer that 
by ! Lands in window buffer. 
98 PP C(PP_W_ROWS_TO MOVE] = .OVERLAP FOCB_W_NO_ROwWS : 
97 PP CPPLW"MOVE-LERGTH) = .OVERLAP COCB-W-NO-COLSJ; 
99 PP pre uaF inst WCB_ROW) = .OVERLAP [OCB_W_ROW_START); 
400 PP CPPLWLAST_QCB_ROW) = .OVERLAP [OCB-W"ROWSTART) + 
“ 1 -OVERLAP COCB"W"NO_ROWS) - 1; 
44 PP CPP_W_FIRST WCB coud = .OVERLAP DEB UO START 
44 PP [PP"W-LAST_@CB_COL] = .OVERLAP [O“B-W"COL-START) + 
65 eek? -OVERLAP CDCB"W"NO_COLS) - 1; 
e9 ret PP CPP_L_MOVE_SIZE) = .OVERLAP [0CB_W_ -ROws) * 
os ret OVERLAP CDOCB_W_NO_COLSJ; 
56 4410 DCB_START_ROW = .OVERLAP [DCB_W_ROW_START) = .PP [PP_W_ROW) +1; 
4 rr}p DCB_START_COL = .OVERLAP LOCB_W_COL_START) = .PP CPP W°COL) +1; 
ig £018 PP CPP_W_FROM_INDEX) = (.0CB_ START ROW -1) *.DCB (DCB_W_NO_COLS) 
74 4414 + .DCB_START_COL = 1; 


SMGSDISPLAY_LIN SMGSDISPLAY_LINKS 
i889 ~"" SMGSSCALC_PASTE_T 
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RANSF = Calculate pasting tran ae ets $3:383} SMGRTL BUGSRCISMGD I Sc 19.832; 1 age 389 
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PP CPP_W_TO_INDEX) = (OVERLAP COCB_W_ROW_START] <1) * 
WCB CwCB_w NO COLSTJ + 
-OVERLAP [DCB_Q_COL_START) -1; 


IF .DCB COCB_V_BORDERED) 
THEN 


ath ! Bordered display 
UPPER_ROW, ! Row above top row of pasted display 
LOWER_ROW, ! Row below bottom row of pasted display 
LEFT COL, ! 9 - to left of pasted display 
RIGHT_COL ! Col. yo r gt of pasted display 
LDES = REF BLOCK C,BYTE i! Address of dynamic descr. in 
or points to label 
H ring. 


LDES = DCB CDCB_Q_LABFL_DESC); 


14 
! Compute the row 4nd column numbers where the borders fall. 
' Note these rows ane columns may not map into the buffer 

: and need to be validated before use. 


ESESSSSSESESLELLSL LL ELS 


DIDI DIII t i  e ed ed d 
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UPPER_ROW = .PP [PP_W_ROW) - 1; 
LOWER-ROW = .PP CPP“W"ROW) + .D¢B CDCB_W_NO_ROWS); 
LEFT COL = .PP CPPTW"COL) - i ; 
RIGHT_COL = .PP CPPW"COL] + .p¢B COCB_W_NO_COLS); 


IF .LDES CDSCSW_LENGTH] NEQ 0 
THEN 


2 


BEGIN ! Label position computation 
re -DCB LDCB_B_LABEL_POS) FROM SMGSK_TOP TO SMGSK_RIGHT OF 


CSMG$K_TOP): 
BEGIN ! Label in top row 
{Fg UPPER_ROU GEQ 1 
BEGIN ! Top row in buffer 
LOCAL 
DCOLS : SIGNED; ! Dest. col. start 


DCOLS = -PP_ CPP _W_COL] + 
-DCB COCBW_LABEL_UNITS] -2 ; 


ff zece.s LEQ .WCB CWCB_W_NO_COLS) 
BEGIN ! partially on screen 
LOCAL 
DCOLE : SIGNED; ! Dest. col end 
DCOLE = MIN ( (,LDES EBSCSW LENGTH + .DCOLS -1), 
pp {PP W_COL) ¢ 


:0CB peB-W_i0_coLs) , 
WCB CWCB"W"NO~COLS)); 


PP CPP_W_LABEL_BYTES_TO_MOVE) = 


0900090900909 09 0909 INI SIN NOAOUUIUIVIS FREER ERP PPP PPP PPP PPP PES 
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4 ¢ 447 MAX ( 0, agcoe °' 

4 447 ° -DCOLS) ); 

4 4474 

4235 4475 If .PP CPP_W_COLJ LEQ 0 

4 447 THEN 

4 447 i ! Using teil nd of label 
4 : 4678 PP LPP H SRC_LABEL 

4 4479 -LBES COSCSw_L AGTH H) - 

4240 4480 -PP CPP_w_ ABEL BYTES. TO_MOVE); 
624) 6481 END | Using tail end of label 

424 44 ¢ naa 

424 44 5SiN ! Using pegne = of Label 
4244 4484 BE te ‘LAB L_OFF 

: $2 ret te END; T Using front end of Label 
424 seb? PP CPP_W_OST_LABEL casa = (,UPPER_ROW -1) * 
4248 4488 a tw WCB_W “NO_ COS) + 
4249 4489 0, .dtofS = $ 
4250 4490 END; ! Partially on Bane 

4251 4491 

4 § 449 END; Top row in buffer 

425 449 END; ' Label a top row 

4254 4494 

4255 4495 CSMGSK_BOTTOM): 

$2 4496 BEGIN ! Label in bottom row 

: 5 4497 iO ee ROW LEQ .WCB CWCB_W_NO_ROWS) 

4259 BEGIN ! Bottom row in buffer 

4260 4500 LOCAL 

4261 4501 DCOLS : SIGNED; ! Dest. col. start 

4 $e $208 

426 450 OCOLS = -PP CPP_W_COL] + 

4264 4504 .0CB Cote- WL_LABEL_UNITS. = 2; 
4265 4505 


I ae LEQ .WCB CWCB_W_NO_“OLS) 
BEGIN ! Partially visidle 
: DCOLE : SIGNED; ! Dest. col. end 
DCOLE = se ( rp tbr CDSCSu_ LENGTH] * .DCOLS <1), 


DCB-W_NO_COLS) ), 
fi 6 WCB-W"NO_COLSJ); 


PP CPP gh Neel BYTES TO Oye) = 
Rk, -DCOLS) ); 


Mroforfofner 


F re CPP_W_COL] LEQ 0 


! Using tail end of Label 
Bp” PP W_SRC_LABEL_OFF] = 
-LBES COSCSW CENGTH) - 
PP_W YABEL BYTES_TO_MOVE); 
L end of labeT 
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fo 
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89 
90 


3) 
98 

4 
95 


+] 


PtP ! Using F3"s ty of label 
BF PP_wW_SRC pt ABEL. OF F 


END; irene end of Label 
PP CPP_ w OST “LABEL “OFF (,LOWER_ROW -1) * 
8 CWCB_W7NO_ cos] + 
maxto. .bdtocs = 
END ;! Partially visible 
END; ' Bottom row in buffer 
END; ! Label in bottom row 
CSMG$Sa_LEFTI: 
BEGIN ‘Label in Left column 
TF LEFT. COL GEQ 1 
BEGIN ' Left column in buffer 
LOCAL 
DROWS : SIGNED; ! Dest. row start 


DROWS = .PP CPP_W_ROW] + 
“DCB CDtB- W_LABEL_UNITS] = 2; 


6 

7 

7 

7 

7 

; 

4 — LEQ .WCB CWCB_W_NO_ROWS) 

§ peste t ! Partially visible 

4 DROWE : SIGNED ; ! Dest. row end 
8 DROWE = MIN ( (.LDES foscsw. LENGTH] + .DROWS -1), 
(. PP CPP _w 
9 

y 

9 

: 


FARGO ODe 


At ot nt OOO 


Dt: W_NO -Rows) 
UCB WCB-W-NO-ROWS3); 


PP CPP_W LABEL prves TO_nOvE = 
Max ( 0, .DROW 
HaX (0, * ROWS) ); 


F ir CPP_W_ROW) LEQ 0 
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seers 


DONO ULE WI--O 


esis ! Using tail end of label 
3 PP_W_SRC LABEL OFF] = 
LBE pprscsy LENGTH) = 
PP u LABEL Sytes TO_MOVE): 

END ! Us * “tail end of label 

ad ts ! Using Srqnt ae of label 
BP PP_w&_SRC ths L_OFF 
END; sing front end of label 


PP CPP_W_DST_LABEL OFFI : (,DROWS -1) * 
6 twCB_W_NO cous} ‘ 
as %o , -LEFT_cOL = 
END; ! Partially visible 
END; ' Left column M buffer 
END; ' Label in eft column 
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Virtual Display Linkages B-san-t 5 21:46:1 AX-11 Bliss-3 2 
GSSCALC_PASTE_TRA ANS SF = Calculate pasting tran et #3348318 YSMGRTL. BUESRCISMGDISL 14.832; 1 


CSMG$K_RIGHT): 
BEGIN ! Label i 


TF 


COUTRANG 


h 
gRiGut COL LEQ ue fuéecue iw "NO. COLS) 
“BEGIN ! Right column in buffer 
DROWS : SIGNED; ! Dest. row start 


DROWS = -PP_ CPP _W_ROW] + 
-DCB COCBW_LABEL_UNITS] = 2; 


ees LEQ .WCB CWCB_W_NO_ROWS) 
BEGIN ! Partially visible 
DROWE : SIGNED ; ! Dest. row end 
DROWE = di ( Capes CDSCSu. LENGTH] + .DROWS -1), 


w 
.0CB COCB_w ROWS) ), 
-WCB CwCB i “NO ~-ROWS)); 


PP CPP_W LABEL BYTES TO -AOye) = 
Max ( 0, .DROWE™ 
fAK (0, * DROWS) 3 


F ad CPP_W_ROW] LEQ 0 
! Using tail end of Label 


U-LABEL, Byres. Ne MOVE); 
END | Using” ta 


LSE 
5ohe ! Using Trent 8 end of label 
BP PP_W_SRC “at L_OFF 
END; sing front FF of label 


PP CPP_W_DST_LABEL OFFI : (,DROWS -1) 
p twcB W.NO.COLS) + 
WAKtO. eRIGAT_COL = 1); 


END; ! Porgtetly visible 
ight yo fn buffer 
"! Label in r ght. column 


EJ: 


RETURN (SMG$_FATERRLIB); 


TES; 
END; Label position computation 
! Bordered display 


1 Overlap 


i i the virtual display width matches the window control block width, 
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SDISPLAY_ LINKS = Virtual Display Linkages ba Jan-1 AX-11 Bliss-3 Page 124 
MGSSCALC ADRSTE _TRANSF = Calculate’ pasting tran et 1 #3: 38: 18 USMGR TL BuGeRe SMC SSL Ih. B32;1 - 33} 

; 4403 a : the width of the data to be move during a mapping te) nat on is 

3; 4404 4644 i th S same width, iy both the source area and the dest par ien on are 

; 4405 4645 i contiguous veets of bytes and can be moved with a single 

: Pet's rh ee i If not, _— have t t9 be moved a row at a time since that is +8 many 

; ryi't4 reek i are piece-wise contiguous. 

> 4409 4649 PP CPP_V_CONTIG) = 0; ! Assume not contiguous until so proven. 

: 4410 4650 IF bce bees W_NO_ cis) EQL .WCB CWCB_W_NO_COLS AND 

: rete $82) -PP CPP_woMOVE-LENGTH) EQL .0CB COCB-W"NO-COLS 

: oe1$ rhe PP oR pea = 1; ! Contiguous 

3 4414 ett: 

> 4415 4655 RETURN (SS$_NORMAL); 

> 44616 4656 1 END; ! End of routine SMGSSCALC_PASTE_TRANSF 


OFFC 00000 ENTRY Born CABSRS. PASTE = TRANS. Save R2,R3,R4,R5,- ; 4302 
5E .¢ SUBL2 meee : 
04 AC D MOVL PP "RP + 4353 
50 14 A? 00 00 MOVL g0{R7) PBCB : 
59 08 AO DO 00000 MOVL (races, WCB + 4354 
52 10 A p 11 MOVL  16(R?) gC : 4355 
18 AE 24 A? 9E 00015 MOVAB 36(R7), 24(SP) : 4 
18 BE 84 OOOIA CLRW ; ates : 
14 AE 26 A ; ry ROVAB 3 R 2s 20(SP) : 4361 
10 AE 28 «A? OSE MOVAB 4 OAS) 16(SP) : 4362 
10 BE B4 A CLRW 916(sp5 ; 

OC AE 18 A? OE MOVAB 24(R7), 12(SP) > 4365 
50 62 MOVZWL (cB) RO ; 
een: Gy Bieta. : 

adie HY 2 We f aovw a; A, TEMP +2 ; 4 

88 A 1A A? OE VAB 36(ny) 8(SP) : 1308 

04 A2 0048 MOVZWL 4 (DCB). RO : 
1 8 F D004F CVTWL  a&(SP). R : 
0 CO 00053 ADDLe = RI, RO ; 
28 AE 1 ; 0056 SUBWS = #1, RO, TEMP+4 : 
Q4 AE 6 Ae St 00058 MOVZWL 6(6CB), 4(SP) : 4368 
A AE 4 AE 06 Vw 4(SP), TEMP+6 ; 
¢ AE SF 0006 PUSHAB OVERLAP ; 4376 
a ny , 
000000006 00 6 F 1006 CALLS ‘ ‘ peers : 
U : 
1c A? 84 00077 CLAY = BER i 4382 
0258 31 QOO7A 18: BR 42$ : 4 
10 (A? 1E AE BO 00070 28: mOVW OVERLAP +2, g8¢R7) ; 96 
’ A? é AE BO 0008 VW OVERLAP+6, 34(R7) : 4 4 
Fo oA? He 1008 Vw OVERLAP, 47(R7) : 4 
20 1¢ «6AE 63C 0008 MOVZWL OVERLAP. RO : 4401 
1E AE 3C 0009 MOVZWL OVERLAPS2" RI : 


SAGSDISPLAY_LIN SMGSDISPLAY 
-09 SMG 


F 3 
LINKS = Virtual Display Linkages -Jan-1985 21:46:1 AX-11 Bliss-32 V4.0-74 p 
MGSSCALC_PASTE_TRANSF = Calculate pasting tran eat i 73:28:18 OMGRTL BUSEREISNCOGS, 191.832:1 age 123 


1 ¢ ADDL2 RI ; : 
31a? ; 1 iS $7 pkg Hi R 49(R7) F ; 
20 A f ¢ MOVZWL oye b+4, R + 4403 ; 
5% 22 ac rv rv BuERCASSS. RO : 4405 
26 FF ash ; Ag VAB oveR n04, R1 : ; 
35 A? 5 AD Vw ORT R7) : ; 
0 16 AE 3¢ 0008 MOVZWL OVERLAP +2, RO : 4408 : 
1 22 =A g B MOV yl OVERLAP+6, R1 : ; 
28 «A? 0 5 89 MULL3  R1, RO, 43(R7) : : 
1 1c AE BI MOVZWL OVERLAB, R1 + 4410 : 
: 0c BF ¢ CVT ai (SP), RO : ; 
08 ¢ CVTW aBisP), RO + 4411 : 
50 28 BF C CD Suet RO, R3, RO ; : 
2] 04 =A ¢4 D1 MULL2 4(§P),‘R1 + 4413 ; 
4 804 ; D MOVAB (DCB START COL) +CR1, RG + 6414 ; 
1€  A7 54 : D MOVW = R4, 30(R7) : ; 
50 1C A ¢ Dp ROVZL OVERLAP, RO ; ; 
SA 06 Ad Hi eS MOVZWL 6(WCB), R10 : 
20 SA g E MULL2 Rb : 
1 FF A340 EA MOVAB 51 (RS) RO}. R1 : 
20 AZ 51 8 EF MOVW = RI, 32(R7) : 
83 2F OA F3 BLBC 47 (orb) 1$ ; 
: 08 A F MOVAB 8&(R2), LDES : 
5 re. # OOF CVTWL a12(SP), UPPER_ROW : 
5 OOFF DECL UPPER ROW ; 
5B oc BE 32 00101 CVTWL «6 @12( SP), R11 : 
51 2 Ae 3C 00105 MOVZWL 2(DCB), R1 : 
B 1 (0 001 ADDL2 RI, RII : 
1 B p 0010¢ VL R11, LOWER_ROW : 
4 08 E O10F CVT ag (SP). LEFT _COL : 
5 08 BE 32 B11 VTi SE CSBS R8 : 
5 04 AE C 0119 ADDL2 4(SP), RB F 
5 58 D0 0011D VL RB, RIGHT COL ; 
56 : ¢ 4 MOVZWL (LDES), ; 
03 0 31 Ad BF 001 icte  A8tpcB). #0, #3 : 
0141 00D6 009s 001 O12A 3S: «WORD i "i : ; 
$-3$;- : 
j $-3$ 3 
50 000000006 8F BO 1 2 MOVL § #SMGS_FATERRLIB, RO : 
5 DS COSA 4S: RETR. UPPER ROW 
33 13C BLEQ VES gs 3 
50 98 B 1 CVTWL (SP), RO : 
gE 4 1 MOVZ2WL 44(DCBS, (SP) 3 
CO 0014 ADDL ‘$P) rb : 
C2 0014 SUBL# bcos ; 
A p 14¢ CMPL pcos, R10 ; 
63 14 OO14F BGTR 4 ; 
53 FF A046 9E 00151 MOVAB =} <DCOLS)CR6I, R2 ; 
3 p 1 $ CPL Re R : 
1 BLEGSsSSS : 


; 6 
- 746: =11 Bliss-32 V4.0-742 Page i 
NKS = Virtual Display Linkages B-san 1985 : ‘] AX bis. ta.e32:1 388 
aera t sacs CALE PASTE TRANSE - Calculate pasting tran ae ete ; YORGRTL BUGSRCJSMG : 
MOVL 
2s 1 D 81 E ss: CHL Re: Rio i 4469 
ie : 
MOVL R10, R2 
3 0 bo O01 68: ROVE pcols, Re 4473 
18 Bi aces : 
ve : 
52 P3 BO1e> 7S SUBL2 RB, R2 po 
501 INCL) oR 
1B gore get : 
ue : 
18 BE BO 00176 88: ABV Ff £gBgesP et 
a a : 
18 AS COLT SUBW3 @24(SP), R6, a20(SP) i 44 
sie a BS RB OOS : 
11 90185 8 i 44 
14 Bs 00187 9S CLRW © a20(SP) i 444 
a a. 
83 6 fa 18 soBcea R0,°118 
D4 : 
10 BE $5 AI OO19% 118: ADDUS RO, RS, a16¢S—PD pe 
51 02 a9 10 60 ED 198 188: CMPZV #0, #16, 2(WCB), LOWER_ROW 3 4497 
BLSS 
o 9 PRB BL Bt ee 454 
atl ae a 2 
0 : 
SUBLS #2 DCOLS : 
eee 6h Oe jae 
FF aoe oe 40166 "  MOVAB = (DCOLS)CR6I, R2 ; 4512 
' ta Re 2 
Ho a ae oe 
ve ° ‘ 
. ; Hae ee a Hl : 
MOVL R10, R2 : 
3 O pO COIR 168: ove pcots, RS i 4519 
Ie goree get : 
52 C3 O0ib? 178: Suara Re, Re oa 
1D INCL) oR : 
1S gore ues ts : 
18 BE BO OO1DB 188: MOV £BRe(sP) Foe 
oe ER OR a 
16 BE 56 18 BF AS OO1E SUBMS 924(SP), RG, a20(SP) i 4 
6B OBE toe: Sy Bsn BY 
pF fy 8 Ricto Ato, et : 4334 
. FEBS pail | 
4 Py 
1F9 ADDUS R1, a16(SP) aes 
= wi i " 1FE $5 BRB 3 


H 3 
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30859 SMGS CALE PRSTC TRANS? - Calculate pasting tran Faget 1 98a #3538318 ShGRTL BUGERE sMGb1SL1N.B32;1 Page 38) 
ue 


Fe 238: [st ale 3 4543 : 
1 gc 8 OL a $cspp, RI + 4550 > 
; E. & MOVZWL 44 cB), RO : 3 
5 é ADDL2 RO, R ; 3 
6 FE Al SE MOVAB =2(R1). DROWS : 3 
50 02 ag 1 eh i ous:  gmeev £9 wid, 2(WCB), DROWS ; 4552 3 
51 FF AO "  MOVAB =1 (DROWS)CR6), R1 : 455 3 
B ® cHeL Ri, R11 : 455 3 
51 00 MOVL R11, RI : +r 
51 02 a9 10 6 ; 258: CHPLV #0 #16, 2(WCB), R1 : 4561 3 
51 02 ad 3¢ MOVZWL $foce). R1 : a 
1 ? 03 268: mye prOUS . R1 3; 4565 2 
a can : ‘ 
52 1 278: SUBL2 RI, R2 : soe | 
08 BGEG  28$ : ; 
D4 CLRL oR : > 
18 BE 80 46 288 MOVW  R2, @24(SP) : : 
aA Usty Bhgtse) “stead 
14 BE 56 18 BE AS SUBS §24(SP), R6, a20(SP) : 497 3 
14 F B4 ; 9$:  CLRW a20(SP) : 4576 ; 
5 a ee Os: Ritts He, ao : t2K8 ; 
3 4 Fé S0BGEQ Rs, 318 > 4581 3 
10 BE 50 4 At OC ek $$: ADDWS «RG, RO, a16¢SP) pee : 
SA § 1 $: CMPL cg R10 : 4588 ; 
65 14 BGTR 4 : : 
51 C BE 32 CVTWL a12(SP), RI > 4595 : 
0 Cc OA ¢ NZ2WL 44(DCB). RO ; ; 
21 S ¢ ADDL2 R : : 
0 FE Al SE MOVAB <=2(R1), DROWS : ; 
50 02 a9 1 00 FD CMPZV #0, #16, 2(WCB), DROWS : 4597 F 
4 5 348: BLSS 4 : : 
51 FF A 9 MOVAB = (DROWS) CR6, R1 > 4603 F 
B : cnet 8} R11 > 4607 ; 
51 D MOVL He R1 : : 
51 02 a9 10 p 358 cReZV #0, #16, 2(WCB), R1 > 4606 ; 
51 02 a9 C MOVZWL 2(WCB), RI : : 
1 368: mova DROWS,R > 4610 : 
a can : 
52 iB. 378 SUBL2 RI, R2 : 
é p INCL Re > 4609 
BGEQ 38$ 3 


SMGSDISPLAY_LIN SMGSDISPLAY LINKS = V 
1-09 ANS 


SMCSSCALC PASTE TRANGE. «Calculate postiegee f-Jonat98s GhiSGi1$ = YaEM Bk 


irt iss-3 P 
F = Calculate pasting tran 2-0ct-1 SNGRTL BUGERC TSMC Sct sik. 832;1 aoe 338 


18 BE ms § i 3 38S: nov : ais 924 (SP) seal 
16 BE 56 18 BF A ; 5uBN3 Bc4(SP), R6, @20(SP) i 
14 ’ Bs : 398 e Rw 5 sp) : 6 ; 
DECL R : 4 
83 Fo 005¢8 et a ar 
D4 002C CLRL. RS logs 
10 BE $0 Al ais: ADDW3 = R3,, Rg 916(SP) : 
A A 8A 00005 42$: BICB2 #2. 42¢R7) + 4649 
4 AE 06 A 8 D CMP 6(ucB), 4(SP) t 4650 
08 ; i) BNEQ 3 $ $ 
046 AE 22 a? 8 4 cP 34(R7), 4(SP) 3 4651 
2a A? oe as E BISB2 ae. 42(R7) + 4653 
50 1 p EB 43$: MOVL #1. R + 4655 
4 OOZEE RET + 4656 


; Routine Size: 751 bytes, Routine Base: _SMGSCODE + 167D 


: 4417 4657 1 !<BLF/PAGE> 
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3; 4419 $62 1 ZSBTTL ‘SMGSSCHECK Ech US ION - Check pastings for occlusion’ 

: 4420 4 1 GLOBAL ROUTINE SMGSSCHECK_OCCLUSION ( 

3; 4421 4 1 PBCB : REF SPBCB_DECL 

3 44 ¢ 4661 1 d= 

3 44 4662 1 !+4¢ 

> 4624 4665 1 ! FUNCTIONAL DESCRIPTION: 

3; 4425 4664 1! 

3 44 $ 4665 1! This procedure checks the gverle in all the pastings to 

3; 44 4666 1 ! a given pasteboard -- setting a bit in Fhe respective pasting 
3: 4628 4667 1! pockets o record whether each pasting s occluded 

3: 4429 4668 1 ! gher (more-recently pasted) pastings. This greceeyre is 

3; 44 4 1! invoked movever there is a a i in the pasting order or 

3: 44 4 1! pasting position of any virsue splay. 

3 44 4671 1! f we can determine at pasting time that a particular virtual 
3 44 4672 1! display (as yo and with a g'ven succession of higher-pasted 
3 44 4675 1! virtual displays is not occl by any of them, 

3: 4435 4674 1! we can make mapping run faster since a faenge to a virtual 

3: 44 4675 1! display which is not occluded causes ancy the changed virtual 
3 44 4676 1! display to be remapped. Higher pasted virtual displays do not 
3: 44 4677 1! have to be remapped since it is known that they do not occlude 
3; 4439 4678 1! the changed one. 

3; 4440 4679 1! 

3 rere aes : : CALLING SEQUENCE: 

> 444 46 ¢ 1! ret _status.wic.v = SMGSSCHECK_OCCLUSION ( PBCB.rab.r) 

3 4444 4685 1! 

3 4445 4684 1 ! FORMAL PARAMETERS: 

3 4446 4685 1! 

3: 4447 4686 1! PBCB.rab.r Address of pasteboard control block 

> 4448 4687 1! which has something new or different 
3 4449 4688 1! pasted to it. 

3; 4450 4089 1! 

3 4451 4690 1 ! IMPLICIT INPUTS: 

3: 445 4691 1! 

3 445 4692 1! NONE 

3 4454 4695 1! 

3 4455 4694 1 ! IMPLICIT OUTPUTS: 

3: 445 4695 1! 

3 445 46 1! NONE 

3: 4458 4697 1! 

3; 4459 4698 1 ! COMPLETION STATUS: 

3; 4460 y4 344 1! 

; rere rth : : : SS$_NORMAL Normal successful completion 

3; 446 47 § 1 ! SIDE EFFECTS: 

3 44646 47 1! 

3; 4465 47 1! NONE 

: rts} 4705 1 !-- 

3 446 47 1 

3 44 47 BEGIN 

3 rr} 4708 LOCAL 

3; 4470 47 THIS_PP : REF SPP_DECL, 

3 4471 4710 } ager of pasting packet for upper-most pasted 
; rr! orn ! virtual display. 

3 4474 tng THIS_Q_HEAD : REF BLOCK (C,BYTE); 

3 4475 4714 ! Addr o lLongwords that form queue header in 


Oh 
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SMGSSCHECK_OCCLUSION = Check pastings for occ -0ct-1 SMGRTL .BUGSRC 6) 
447 4715 ! PP currentl in ion. 
4a? arte * currently under inspection 
1055 oci8 i To initialize for the rest of the qi gorrthn, run through whole pasting 
rr : ry a ! List marking all packets not occluded. 
448 4721 THIS _Q_HEAD = .PBCB CPBCB_A_PP_NEXT); ! Ist (more recent pasting) 
44 § 47 ; WHILE ~THIS_Q_HEAD NEQ PBCB”CPBCB_A_PP_NEXT : ’ 
4485 4724 BEGIN ! Init. pase 
rt) 4725 THIS_PP = .THIS_Q HEAD = PP_PBCB_QUEVE_OFFSET; ! To top of packet 
44 47 § THIS_PP [ ppv -OCTLUDED) = 0; 7 Init“to not occluded 
44 47 THIS_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCBI; ! To queue header in 
1256 2555 END; ! Init. pass spaoat psi 
; ! Init. pas 

4491 4730 
449 4731 THIS_Q HEAD = .PBCB CPBCB_A_PP_NEXT]; 
449 47 ¢ THIS_PP = .THIS_Q_HEAD = PP~PBCB_QUEUE_OFFSET; 
tegs t 4 14 : 
2638 rf 5 Loop for all pasting packets starting with most-recently pasted one. 
4698 47 ; WHILE ~THIS_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXT] 
$280 544 oceie ! For all displays from top tu bottom 
$28 ore) NEXT_PP : wally” ert = » * , 

' rf 5. pasting packet curren nder 
4504 ores : inspection. adr fin 
4506 NEXT_PP_Q_HEAD : REF BLOCK C,BYTE), 
4507 Addr of 2 longwords that form queue 
4508 ! header in PP currently under 


! inspection. 


TEMP_THIS : BLOCK C8,BYTE), 
Area of projection of THIS virtual 
! display on pasteboard 


TEMP_NEXT : BLOCK (8 BYTE), 
: Area of projection of NEXT virtual 
! display on pasteboard 


THIS_DCB : REF BLOCK C,BYTE); 
' Addr of virtual display currently 
! under inspection. 


PPLE 
SNS 
NS 
OoOCOnou 


'¢ 
! Recalculate pasting packet address and (CB address for this 
! iteration. 
THIS_PP = .THIS Q HEAD = PP_PBCB_QUEUE_OFFSET; 
is THIS7DCB =". 1! 1S-PPCPP_A DUB-ADORGS 
'¢ 

0 ! It is safe to assume that there is at least one virtual 

! display pasted to this pasteboard -- but there may not be more 
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SMGSDISPLAY_LINKS = Virtual Display Linkages b-sanet 5 21:46:1 AX-11 Bliss-3 0-742 
SMGSSCHECK_OCCLUSION = Check pastia 9 38? 73:88:18 Bene sshcb ssi 1W.83251 


-Oct-1 SMGRTL.BU 


' than one. Be careful about reaching ahead to a porter that 
! may ngt be a pocket, If doesn't exist, pointer will be 

' point ng back into PBCB <= and inner loop will not be 

: executed. 

NEXT_PP_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCB); 

JF, NEXT PP_O_HEAD NEQ PBCB CPBC(B_A_PP_NEXT] 


BEGIN ' NEXT exists 
NEXT PP = .NEXT_PP_Q_HEAD = PP_PBCB_QUEUE_OFFSET; 


i Forma representation of the projection of THIS virtual 
: display onto pasteboard coordinate system. 


TEMP_THIS CDCB_W_ROW START) = .THIS_DC3 (DCB_wW ROW_START) . 
-THIS-PP CPP_W-ROW) = 1; 


ngs for occlu 


TEMP_THIS CDCB_W_NO_ROWS) = .THIS~DCB FOCB-W_NO ROWS); 

TEMP-THIS COCR-W-COC_START) = .THIS~0CB CDCB-W COL. START * 
-THIS_PP CPP_W-COL) = 1; 

TEMP_THIS CDCB_W_NO_COLS] = .THIS"OCB CDCB"W_NO_COLS); 


'¢ 
! If this virtual display is bordered, its projection is 
! bigger than if it were not. Adjust its projection 
representation. 


if .THIS_DCB COCB_V_BORDERED) 
THEN 


BEGIN ! Border ed justaent 
TEMP_THIS [DCB_W_ROW START] = .TEMP_THIS CDCB_W_ROW START] - 1; 
TEMP_THIS (DCB-W"NO ROWS) = .TEMP-THIS [DCB_W"NO ROWS) + 2; 
TEMP_THIS C(DCB_W COC START] = .TEMP_THIS COCB_W-COC_START) = 1; 
TEMP_THIS CDCB"WUNO_COLS] = .TEMP_THIS CDCB-W-NO_COLS) + 2; 
END; ! Border adjustment 

END; ! Next exists 

ELE -NEXT_PP_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXT) 
BEGIN ! For all displays from current to bottom 
LOCAL 


NEXT_DCB : REF SOCB_DECL 
' addr 3 DCB associated with NEXT_PP 

OVERLAP : BLock (8 : 

' Returned by SMGSSOCCLUDE, but not 


NEXT_PP = .NEXT_PP_Q HEAD = PP_PBCB_QUEUE_OFFSET; 
NEXT-DCB = .NEXT_PP CPP h_OCB ADDAS? 


Form @ representation of the gro ection of NEXT virtual 
display onto pasteboard coordinate system. 
mP 


NEXT COCB_W_ROW_START] = .NEXT_DCB COCB_W BOW. START) + 
oNEXT_PP CPP_W"ROW) = 1; 
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INKS = Virtual Display Linkages =Jan-1985 21:46:1 AX-11 Bliss-3 
CLUSION = Check past ings for eeclu ae rat $3:36:13 SMGRTL .BUGSRCJS 
TEMP xT FCB_W_NO ROWS] = .NEXT_DCB [DCB_W_NO_ROWS): 
TEMPINEXT COCB-W-COC_START) = .WEXT“OCB (DCB-w COC. START + 
oNEXT-PP CPP_W°COL) = 1; 
TEMP_NEXT COCB_W_NO_COLS] = -NEXT=DCB COCB"W_NO_COLS); 


¢ 
! If this next virtual display is bordered, a projection is 
: bigger than if it were not. Adjust its projection 
representation. 


if NEXT_DCB CDCB_V_BORDERED) 
rder odjustnen 
¥ asyan! 


TEMP_NE 


t 

_NEXT 

TEMP“NEX 
TEMP"NEXT 

:~ | Bo 


2 

4) 

— 
nnwn 


'¢ 
! Check to see if THIS virtual display occludes NEXT 
: vitual display and if so set occlusion bit of NEXT. 


if SMGSSOCCLUDE ( TEMP_NEXT, TEMP_THIS, OVERLAP) 
NEXT_PP CPP_V_OCCLUDED) = 1; 

'¢ 

Walk chain in direction of earlier pasted packets. 

NEXT_PP_Q_HEAD = .NEXT_PP CPP_A_NEXT_PBCBI; 


END; ! For all displays from current to bottom 
'¢ 
Walk chain in direction of earlier pasted packets. 


THIS_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCB); 
END; ! For all displays from top to bottom 


RETURN (SS$_NORMAL) ; 


eh hl ch ah th eat tee ee eee ae ae ae et nt at nt nt at nts) *41 sla) ot ot at ot ot at at aot at ot ot 
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SSSSSESES 


! End of routine SMGSSCHECK_OCCLUSION 


7% 


0OFC 00000 eENTRY SRGSSCHECK OCCLUSION, Save R2,R3,R4,R5,R6,- : 


SUBL2 #24, SP 
MOVL R6 


¢ 
Dd cB, 
MOVL (R6). THIS 2.HEAD 
4 b C 18: cnet THIS_Q_WEAD,“R 


2 
52 FB AG OSE "1 MOVAB Fira), THIS_PP 


Pn 

orom 
r 
>— 
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SMGSSCHECK_OCCLUSION = Check pastings for occlu 2-0ct-1 SMGRTL..BUGSRC JSMGDISLIN.B32; 1 
A A BICB2 #1, 42(THIS_PP) ; ; 
. af 08 Ne Rove B(THIS_PP),“THIS_0_HEAD : : 
4 6 MOVL  (R6), THIS_Q_HEAD : ; 
2 FB OG MOV -8(R4), THTS“PP : ; 
6 34 CMPL  THIS_Q/ HEAD, "R6 : ; 
00BB Bho, : 
AG MOVAB =Bnu) THIS_PP : ; 
10 A MOVL  16(THIS PP), “THIS DCB ; ; 
A MOVL  8(THIS_PP), NEXT PP_Q_HEAD : ; 
6 3? CAP we R6 ; 3 
3 FBO A MOVAB =8(R5), NEXT_PP : ; 
1 6 MOVZWL (THIS_6CB), RI : 3 
? 18 A tthe 24 (THIS PPS, R? 3 : 
10 AE 1 34 UBWS #1, R1, TEMP_THIS : ; 
12 AF 2 A Vid e(futs cB). TEMP_THIS#2 : ; 
4 A MOVZWL 4(THIS“DCB). Ri : ; 
i 1A A the 2 (THIS PPD, R7 : 3 
U e Py ° 
14 AE 1 34 006 SuBWS «#1, RI, TEMP_THIS+4 : ; 
16 AE 6 Ad 0006 MOVW  6(fHIS’DCB) TEMP _THIS+6 : ; 
ot eS : : 
ee RRB | Bae tines 7 : 
16 AE ; 000 ADDW2 #3. TEMP THIS+6 ; ; 
56 000 CMPL NEXT_PP_G_HEAD, R6 3 : 
3 FB AS D008 MOVAB SB(RS), NEXT_PP ; ; 
30 ‘6 A 0008 mov 16(NEXT_PP) ,“NEXT_DCB ; : 
} 18 AS. 38 0008 CVE SUCNERTCPPS ,“R7 : 
1 005 ADbLe oe ; ; 
08 AE 1 34 SUBWS «= #1, RI, TEMP_NEXT ; ; 
OA af 2 sA MOVW eiNEXT pce). TEMP NEXT #2 ; : 
a MOVZWL 4(NEXT“DCB). R F 3 
i 1A sore 26 (NEXT_PP) R7 : 3 
#1; R1, TEMP_NEXT+4 ; ; 
— OE ie A Bye WERT DCB) , “TEMP_NEXT+6 ; ; 
#: ‘ A BieC  SLAMeRT gCas.. 8 
ea | ie eee? : : 
OE AE 03 ADDW2 i. TEMP_NEXT+6 ; ; 
E PUSHL SP 3 : 
‘ f pu feet : : 
000000006 00 stat’ a. Senge : ; 
S62. #1. 42(NEXT_PP) : 3 
” $ 08 A ROW * wong NEXT_PP_Q_HEAD : 3 
54 08 A MOVL (THIS_PP), THIS_Q_HEAD ; : 
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SMGSSCHECK_OCCLUSION = Check pastings for occlu 2-0ct-19 SMGRTL .BUGSRC JSMGDISLIN.B32;1 (26) 
FF3D 31 BOOES BRW 3$ i 4737 

50 01 DO OOOED 9$: MOVL #1, RO ; 4870 

04 OO00EC RET ; 4872 


; Routine Size: 237 bytes, Routine Base: _SMGSCODE + 196( 


> 4634 4873 1 !<BLF/PAGE> 


SAGSDISPLAY LIN SMGSDISPLAY LINKS = Vir § 4 
1-09 SMGSSCHECK_OCCLUSION_F I k pastings for 2-Oct=1 SMGRTL.BUGSRC JSMGDISLIN.B32;1 


tual Cispl 
RST = Chec 

ZSBTTL 'SMGSSCHECK OF CLUS 108 FIRST = Check pastings for occlusion’ 
SMGSSCHECK 


: 46 4874 1 

: 46 $ 4875 1 GLOBAL ROUTINE OCCLUSION FIRST ( 

: 4638 4 6 1 PBCB : REF S$PBCB_DECL 

; 4639 4877 1 )= 

; 4640 4878 1 !+4 

; Peet. : 4 : FUNCTIONAL DESCRIPTION: 

; 464 4881 1! This procedure updates the overlap bit in all the pastings to 
3 4644 & ¢ FF @ given pasteboard -- setting a bit in the respective pasting 
>; 4645 4 1! packets to record whether each pasting is occluded by 

; 4646 4884 1! the highest nega ne pasted) pasting. This procedure is 
: reat | tf ’ } invoked whenever a virtual display is freshly pasted. 

> 4649 48 ; 1} This routine differs from SMGSSCHECK_OCCLUSION it that that 

: 4650 4888 1! routine compares all pastings to all “other peezsne. This 

: 4651 4889 1! routine only compares the top pasting to all the others since 
; 465 4890 1! the addition of this new top one can only add an occlusion to 
: 465 4891 1! a lower one. Any occ Lye tens already existing at a low level 

> 4654 4892 1! cannot have been modified by pasting one more on top and there 
3 pe re ot : is no reason to recalculate their relationship to each other. 
3; 465 4895 1! If we can determine at pasting time that a particular virtual 
: 4658 4896 1! display (as pong and with a given succession of higher-pasted 
; 4659 4897 1! virtual displays is not occluded by any of them, 

; 4660 4898 1! we can make napping run faster since a change to a virtual 

: 4661 4899 1! display which ts not occluded causes arty the changed virtual 
>: 466 4900 1! display to be remapped. Higher pasted virtual eleprere do not 
3; 466 4901 1! have to be remapped since it is known that they do not occlude 
; 4664 4902 1! the changed one. 

3; 4665 4 1! 

3; 4 & 1 ! CALLING SEQUENCE: 

; 466 4905 1! 

: ries £33 ' ret_status.wic.v = SMGSSCHECK_OCCLUSION_FIRST ( PBCB.rab.r) 

; 4670 4908 1 ! FORMAL PARAMETERS: 

3; 4671 4909 1! 

3; 467 4910 1! PBCB.rab.r Address of pasteboard control block 

3; 467 4911 1! which has a new virtual display pasted 
3: 46746 sate 1! to it. 

3; 4675 4915 1! 

3; 467 4914 1 ! IMPLICIT INPUTS: 

: 467 4915 1! 

3: 467 4916 1! NONE 

3 4 4917 1! 

3; 4 reat | 1 ! IMPLICIT OUTPUTS: 

3; 4681 4919 1! 

3 4 ¢ 4920 i! NONE 

3; 4 4921 1! 

3 4 49 § 1 ! COMPLETION STATUS: 

3; 4685 49 1! 

3 : $3 ¢ ' : SS$_NORMAL Normal successful completion 

3; 4 49 $ 1 ! SIDE EFFECTS: 

7 4 49 1! 

3; 46 49 3 1! NONE 

: 4691 49 1 !-- 

3; 4692 4950 1 


ay Linkages $-Jan-1985 $4236: 16 pened Bliss-32 V4.0-742 Poe 13 


4 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages Basan 5 21:46:1 AX-11 Bliss-32 V4.0-742 Page 
1697 SMGSSCHECK_OCCLUSION_FIRST = Check’ past ings for 300-1382 $3:88:18 SMGRTL .BUGSRC JSMGDISLIN.B32;1 . 38 
; 4693 493) BEGIN 
> 4694 49 § LOCAL 
2698 09 4 ans Fh Ne ae tts f ti ket f st ted 
; ! r of pas acket for er-mo aste 
3 ree 23 5 : airmen Gisplay.” a . 
: 4699 1989 THIS_Q_HEAD : REF BLOCK C gyre). 
3; 4 4 49 3 ! addr o lLongwords that form queue header in 
; 4701 49 ! PP currently under inspection. 
H 1508 4940 
; 47 4941 NEXT_PP : REF SPP_DECL, 
; 47 494 ! Addr of pasting packet currently under 
; ry 5 seer ! inspection. 
: tF09 4945 NEXT_PP_Q_HEAD : REF BLOCK C,BYTE), 
; 4708 494 ! Addr of 2 (ongwords that form queue 
; 4709 494 ! header in PP currently under 
3 reat ite ! inspection. 
: arte 4950 TEMP_THIS : BLOCK (8,BYTE), 
3; 471 4951 ! Area of projection of THIS virtual 
3 eat $326 ! display on pasteboard 
: 4716 4954 TEMP_NEXT : BLOCK (8,BYTE), 
3; 471 4955 ' Area of projection of NEXT virtual 
; rat | $328 ! display on pasteboard 
: 4720 4958 THIS_DCB : REF $DCB_DECL; 
: 4721 4959 
3 47 4 4960 ! Addr of virtual display currently 
g re ? $30) ! under inspection. 
> 4725 496 THIS_Q_ HEAD = .PBCB CPBCB_A_PP_NEXT); ! Most recent pasting 
: 47 6 496% THIS-PP = .THIS_Q_HEAD - PP~PBCB_QUEUE_OFFSET; 
: 4728 4966 THIS_DCB = .THIS_PP CPP_A_DCB_ADDR); 
: re 3 i368 16 
3; 47 4 ! It is safe to assume that there is at least one virtual 
3; 47 ¢ 4970 ; at pester to this pasteboard -- but there may not be more than 
3; 47 4971 ! one. Be careful about reaching oheed to a packet that may not be a 
3; 47 497 ! packet. If doesn’t exist, pointer will be pointing back into PBCB 
3 of 5 rh 46 =- and inner loop will not be executed. 
; 47 4978 NEXT_PP_Q_HEAD = .THIS_PP CPP_A_NEXT_PBCB); 
3 47 497 IF_.NEXT_PP_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXT) 
3 4740 497 THEN 
3: 4741 497 BEGIN ! NEXT exists 
: ort rh NEXT _PP = .NEXT_PP_Q_HEAD = PP_PBCB_QUEUE_OFFSET; 
: 4744 49 § i Forma representation of the are ection of THIS virtual 
3 one? 3 } display onto pasteboard coordinate system. 
: 474 4985 TEMP_THIS COCB_W_ROW_START] = .THIS DCB COCB_W ROW .STARTS + 
3 476 49 -THIS-PP CPP_W-ROW) = 1; 
¢ 474 49 TEMP_THIS CDCB_W_NO_ROWS] = .THIS"DCB CDCB-W_NO_ROWS); 


4 
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wy SRESRENEER OFECIISION FIRST = CROCE peseteee pon SesemtTSBE FAERIE HANCHT Blisees SMGDISLIN.B32;1 age 33) 

4750 4 $ TEMP_THIS COCB_W_COL_START] = - THIS_0CB foe COL STARTS + 

4751 4 -THIS-PP CPP W7COL) = 1; 

47 é 4990 TEMP_THIS CDCB_W_NO_COLS] = .THIS"DCB CDCB7W_NO_COL$); 

a 4 ¢ ; ‘+ 

4755 £39 i If this yirtuel e*epley is bordered, its projection is bigger 

$f $ t35¢ } than if it were not. Adjust its projection representation. 

4728 4996 if, THIS_pce (OCB_V_BORDERED 

4760 499 EGIN ' Border ad ystment 

4761 4 TEMP_THIS (DCB_W_ROW START) = TEMP THIS DCB_W_ROW START) = 1; 

of06 TEMP_THIS [DCB_W_NO_ ROWS = .TEMP_THIS [DCB_W_NO ROWS) + 2; 

476 1 TEMP_THIS [OCB_W_COC_START) = ~TEMP_THIS CDOCB_W_COC_START) = 1; 

4764 5 TEMP_THIS (DCB Se a = ,TEMP_THIS DCB_W_NO_COLS) + 2; 

$709 O04 END; ! Border adjustment 

ore 5 END; ! Next exists 

4? 3 $007 WHILE -NEXT_PP_Q_HEAD NEQ PBCB CPBCB_A_PP_NEXT] 

4771 3010 BEGIN ! For all displays from current to bottom 


A 
NEXT_DCB : REF SDCB_DECL, 


4774 ! oger of DCB associated with NEXT_PP 
4775 OVERLAP : BLOCK (8,BYTEJ; 

4776 ' Returned by SMGSSOCCLUDE, tut not 
peas ! used in this context 


NEXT_PP = .NEXT_PP_G_HEAD = PP PBCB_QUEUE_OFFSET: 
NEXT-DCB = .NEXT_PP CPP_A_DCB_ADDRI: 


14 
! Form a representation of the gro ection of NEXT virtual 
display onto pasteboard coordinate system. 


TEMP_NEXT COCB_W_ROW_START] = .NEXT_DCB COCB_W ROW. START) + 
w-ROwW) = 1; 


SNEXT 
TEMP_NEXT [DCB_W_NO_ROWS] = .NEXT“DCB FDEB-U No rows); 
TEMP_NEXT CDCB-W-COC_START) = .NEXT"DCB COCB-W COC START . 

“NEXT"PP CPP_W"COL] = 1; 
TEMP_NEXT CDCB_W_NO_COLS] = .NEXT“DCB COCB~W_NO_COL$); 


SANS NN 
ww pet ert 4 
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‘+ 

! If this next yiceuet display is bordered, = projection is 
! bigger than if it were not. Adjust its projection 
representation. 


if -NEXT_DCB CDCB_V_BORDERED) 
HEN 


VFWN—o NOUS WO OONOUES WN Oo 


ET PETES TELS. 


! Border odjustaen 
TEMP_NEXT [DCB_W_ROW START) = .TEMP_NEXT [DCB_W_ROW START) - 1; 
TEMP_NEXT [DCB-W_NO ROWS) = teen XT COCB-W"NO ROWS) + 2; 
TEMP_NEXT [DCB-W"CuL staat = .TEMP"NEXT (DCB_W_COC staat) - 1; 
TEMP-NEXT CDOCB"W"NO_COLS) = .TEMP-NEXT CDCB-W"NO_COLS) ¢ 2; 
END; ! Bordér adjustment 
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RETURN (SS$_NORMAL) ; 
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14 

' Check to see if Le virtual dis Lay occludes NEXT 

vitual display and if so set occlusion bit of NEXT. 

iF SMGSSOCCLUDE ( TEMP_NEXT, TEMP_THIS, OVERLAP) 
NEXT_PP CPP_V_OCCLUDED] = 1; 

14 

} Walk chain in direction of earlier pasted packets. 


NEXT_PP_Q_HEAD = .NEXT_PP CPP_A_NEXT_PBCB); 
END; ! For all displays from current to bottom 


! End of routine SMGSSCHECK_OCCLUSION_FIRST 


003 00000 -ENTRY SMGSSCHECK_OCCLUSION_FIRST, Save R2,R3,R4,- ; 4875 
5E 18 C SUBL2 #24, SP : 
04 D MOVL  @PBCB, THIS_Q_HEAD + 4967 
1 C SUBL2 #8 THIS > 6964 
10 Al D MOVL 16(THIS PP), THIS DCB : 4 
08 Al OD MOVL 8(THIS PP), NEXT _PP_Q_HEAD ; 497 
04 AC 32 bt cant . Wate Pacé 3 497 
2 FB AS OSE MOVAB =8(R3), NEXT_PP : 49 
4 6 f MOVZWL (THIS 6CB), Ré : 49 
5 18 «Al CVT 24(THTS_PPS, RS ; 
4 5 ¢ ADDL? RS, R4 " F 
4 1 A SuBWS «= #1, -R4, TEMP_THIS ; 
12. AE 2 A MO ect 1$°DCB), “TEMP_THIS+#2 : 4987 
4 A (THIS"DCB). R4 ; 4989 
1 A A 26( HIS_PP), R1 : 
1 34 c R4, R ; 
1 1 AS 00 #1, Ri, TEMP_THIS+4 : 
16 AE AQ BO 001 6¢ful DCB), "TEMP_THIS+6 : 4 
OE F AO E9 00 4 (TH s pce. $ ; 499% 
12 AE 0 att #2, TEMP THIS#2 : 
16 AE B T HIS+4 : 
16 AE A #2, TEMP THIS+6 ; 
04 AC I T_PP_G_HEAD, PBCB 
FB OA R3), NEXT_PP $ 5017 
10 a \ next PP) , “NEXT_DCB ; : 18 
‘ 18 ; NEX PPS, R4 : 
1 1 AS 00 Ri, TEMP_NEXT : 


4 
SMGSDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages B-san- 5 21:46:1 AX-11 Bliss-32 V4.0-742 Pa 9 m 
1-09 SMGSSCHECK_OCCLUSION_FIRST = Check’ past ings for ma $3:38:18 SMGRTL.BUGSRCISMGDISLIN.B32;1 oe 335 ic 
OA A AO 80 6 MOVW (NEXT_DCB), TEMP_NEXT+#2 ; 
; Of A ; MOVZWL (NEXT-DEBD Ri : : 3536 
4 A A f CVvTW 6(NEXT_PP); RG : 
1 ; C ADDL2 4, RI : 
Oc AE 1 1 A SUBWS «= #1, _R1, TEMP_NEXT+4 : 
OE AE 6 Ap B MOVW 6(WEXT bcB) TEMP _NEXT +6 : 
OE F AOE BLBC (NEXT DCBS, 2 : 
8 AS a DECW. TEMP_NERT : 
OA AE 0 AQ ADDW2 #2, TEMP_NEXT+2 : 
0c AE 8 DECW  TEMP_NEXT+ : 
OE AE 9 AO ADDW2 #2, TEMP_NEXT+6 ; 
E DD OOOA? 28 PUSHL ; : 
14 AE 9F OOOA PUSHAB TEMP_THIS ; 
10 AE 9F OOOA PUSHAB TEMP"NEXT : 
000000006 00 : AA CALLS 4g SRessoccLune : 
2A A  § B4 BISB2 #1. 43 (NEXT _pP) : 
5 08 A2 D B8 38: MOVL B(NEXT_PP), NEXT_PP_Q_HEAD : 
98 1 BC BRB $ 3 
50 01 00 ( 4$: MOVL #1, RO ; 
4 000C RET : 


; Routine Size: 194 bytes, Routine Base: _SMGSCODE + 1A59 


; 4826 5064 1 !<BLF/PAGE> 
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RE KTESBASTEBOARD = Create Pasteboard Cont 2-0ct-1 
Eset *SMGSSCR Ale as} FROARD create Pasteboard Control Block (PBCB)’ 
GLOBAL ROUTINE SCREATE or 


pate’ =ADOR 
lee 


| FUNCTIONAL DESCRIPTION: 
This routine allocates space for a pasteboard control block. 
It ~ ome ey a buffer called t oe buffer 
Su mee fo buffer gutput to this terminal 
(if buffering is enabled). 
i CALLING SEQUENCE: 


ret_status.wic.v = epee 5 


i FORMAL PARAMETERS: 


ROWS.rl.r Max. number of rows that a window onto this 
pasteboard will have. 


COLS.rl.r Max. number of columns that a window onto this 
pasteboard will have. 


' 

' 

J 

' 

t 

' 

' 

J 

' 

' 

4 

' 

' 

‘ 

' 

' 

t 

' 

' 

' 

: PBCB_ADDR.wl.r ae of the newly-created PBCB -- returned to 
: er. 
t 

: IMPLICIT INPUTS: 
NONE 
; IMPLICIT OUTPUTS: 
' 

i 

' 

4 

' 

' 

' 

' 

' 

' 

' 

' 

' 


items in PBCB get filled in 
in particular, an output buffer is allocated. 


i COMPLETION STATUS: 
i Norma success ful completion 
fies" INSVIRMEM praytsite icient virtual memory to allocate needed 
i SIDE EFFECTS: 
i NONE 
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SPGSDISPLAY LIN SRGERI SPLAT DL IUKS oo virtual Display Linkages d-Jan-1985 $3:96:18 AX-11 BLi ae4 V4 .0-742 Page 141 
4 8 
L 


Ss 
GIN 
“Abace : REF SPBCB_DECL, ! Address of PBCB allocated. 
STATUS; ! Status of subroutine calls 
LITERAL 
PBCB_K_OUTBUF _DEFAULT_SIZE 


= 256; ! Default size for output buffer 
! Cif all other algorithms fail) 


6 


a ae eB ed dd td td 


VFA OO OONOUS WIN — 


14 

: Allocate space for the PBCB itself. 

it wat (STATUS = LIBSGET_VM (ZREF (PBCB_K_SIZE), PBCB)) 
RETURN (.STATUS); 


CHSFILL (0, PBCB_K_SIZE, .PBCB); ! Clear all fields to default 0 


IN AAURAARMRAMNAMAMMMMM eee 
OO 
SLOLCOO 


3333 


Wn 


'¢ 
! Allocate the window control block that goes along with this 
: pasteboard, returning failure if we can't. 
By (STATUS = SMGSSCREATE_WCB (.ROWS, .COLS, PBCB CPBCB_A_wCB))) 


GEGIN ! No more space 


3355 


: If we can’t get space for WCB, we might as well give back 
: the PBCB space itself. 


LIBSFREE_VM ty if (PBCB_K_SIZE), PBCB); 


RETURN (STATUS); 
END; ! No more space 


may ad that goes along with this pasteboard, returning 
n't. 
Baek ris used (if buffering is enabled) to buffer all output to 
When vse cones out, we should do a peter job in figuring 

size for 


out a good this buffer by look at sysgen paramaters 
and user quotas, etc. for now, we ust allocate : fixed space. 


Dl ee ek eh le al he th a he Pe eh ek ed ok ed ed ed ek 
ed ed ed od dd 
NON EWN 3 O OONAUE WO 


rrr 
DODOGOODOOODODODODD00000 


STATUS = LIBSGET_VM (ZREF Hy 
Pace (PB 
if NOT .STATUS 
HEN 
BEGIN 
! If we can't get space for the output thas we might as well 


i give back the PBCB space itsel as well as the wCB space. 
: gnore any errors that occur while trying to free th 


CB_K_OUT 
CB_A_OUT 


ane 
ooo 
wm 


S space. 


a ee a a a ad a ed ed ed dt 


ae en ee tee a Me Sy ee 
N~SSS23-SF NONE WU $0 DOONAN FW OOO 


ee 
oS 


4 

ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages B-Janet 5 21:46:1 AX-11 Bliss-32 V4.0-742 Pa 4 LJ 
mgep SRORSCREATE PAS EBOANG = Create Pasteboara cont ~h0nn 138 73:28:18 SNGRTL GUCERETSMGOS Sc tW.B3251 oe 355 ic 
7 49 173 SMGSSDEALLOCATE WCB( .PBCB CPBCB_A WCB) ); : 
: 49 174 L B PRE _VR Cine CPBB KR StseS “PBCoT, ; 
: 4 175 TURN (7STATUS); ; 
g 4805 1 END; : 
; 49% 12 PBCB CPBCB_W_OUTPUT_BUFSIZ] = PBCB_K_OUTBUF_DEFAULT_SIZE; ! allocation t ; 
: 6964 1 re : 
: abet } 1 : Initialize pasting queue header to self. : 
: 494 1 4 " PBCB CPBCB_A_PP_NEXT) = PBCB PBCB_A_PP_NEXT); ; 
; 4968 1 4 PBCB CPBCB_A_PP-PREV] = PBCB CPBCB-A-PP-NEXT): ; 
: 4950 1 § rr : 
3 £32) : Initialize mode settings to default. : 
; 493 ; 189 PBCB CPBCB_L_MODE_SETTINGS) = PBCB_K_DEF_MODE_SETTINGS; ; 
: 4955 131 \+ : 
3; 4956 136 ' Return the address of the PBCB we've built. 3 
> 4957 19 ie : 
: 4958 194 .PBCB_ADDR = .PBCB; ; 
> 4959 195 ; 
: 4960 196 RETURN (SS$_NORMAL); : 
> 4961 197 1 END; ! Routine SMGSSCREATE_PASTEBOARD ; 
00FC 00000 ENTRY SHGSSCREATE_PASTEBOARD, Save R2.R3.R4,R5,- ; 5066 ; | 
57 000000006 95 MOV L{6SGET_vM. R? : 3! 
5E SUBL2 #8, SP : z 
04 AE OF PUS gg ; 5132 3 | 

04 AE O14C BF $C 00 MOVZWL # 4 (SP) : ; 

06 AE OF PUSHAB 4(SP5 3 : 
yg F CALLS , LIBSGET_VM : 3. 
Rise | GR Hit ; i 

O14c BF 00 6€ os 5c mOvcS #0, (SP), #0, “732, aPBCB ; 5136 ; 

7E 04 AE BS sr ADDL3 #8, PBCB, -(SP) > 5142 : 

7E 06 AC 7D MOVG ROWS =($P) 3 : 

0000v CF F CALLS a. SmGSSCREATE_WCB : ; 

6 D MOVL RO, STAT ; : 

1 ED O BLBC = STATUS ; ; 

2 04 Ag D MOVL B, R2 > 5164 : 

f Ae 9F PUSHAB 108(R2) : F 

04 AE 01 SF 3¢ MOVZWL #256, 4(SP) : 5163 ; 

F PUSHAB P ; : 

z ; of CALLS 6 LIBSGET_VM ; 5164 ; 

iF E BLBS Atus, B : 5165 ; 

0000v CF = a PB att al * NGSSDEALLOCATE WCB he : 

04 AE OF PUSHAB pate . : 517% ; 
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04 AE 014C BF ; MOVZWL #332, 4(SP) 
000000006 ™ ¢3 F ChiLe) + ¢ ee _Va 

98 g 06 72 28: WOVE STATUS, RO 
5 4 AE DO 00076 38: MOVL 

70 A 0186 F 8 Ov BF 20) 

“Sor D MOVL 4 (RO) 

oc A D MOVL 12(RO) 

¢ Ns D MOVL @PBCB_ADDR 
1 p mOVL RO 


; Routine Size: 147 bytes, Routine Base: _SMGSCODE + 1818 


; 4962 5198 1 !<BLF/PAGE> 


$ ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages be sane AX-11 Bliss-3 P 44 
i839 SMGSSCREATE-VIRTUAL_DISPLAY = Create Virtual Di Saderaione fesesis — FaMcnt  besacismea ys, ta.e30-1 29 45) 
3: 4964 199 1 ZSBTTL "SMGSSCREATE VIRTUAL_DISPLAY = Create Virtual Display’ 

2 6965 6 1 GLOBAL ROUTINE SRGSSCREATECOTATUAL “DISPLAY ¢ — 

; i388 a. 2 NUM_ROWS, ! Be tgnt 

; 496 ¢ 1 wun COL» ! width 

; 4968 1 we DISPLAY_ID, 

3; 4969 4 1 DISPLAY_ATTRIBUTES, 

3; 4970 . = VIDEO_ATTRIBUTES, 

3 t3}3 : CHAR_SET 

; 497 1 !ee ‘2 

3 taie : : FUNCTIONAL DESCRIPTION: 

: 497 i? 1 i a routine oe a new wicyuet display -- returning its 

3; 497 i 1! assigned display_ Its init ggntents are blanks with 

; re 44 \7 ! vies see = to ro spec fied. The cursor 

3 ' atr ¢ 

; 4980 15 1! This is the toneranet create_virtual_display routine. It 

; <3 1g : } assumes all of its parameters are present. 

: ‘ : { CALLING SEQUENCE: 

> 6985 1} ret_status.wic.v = SMGSSCREATE VIRTUAL_DISPLAY ( 

3: 4 1! NUM_ROOS.rl.r,” ' Height 

3 4 § 1! COLS.ri.r ! Width 

: 6 13 NEW-DISPLAY I0.wl.r, 

3; 4989 41! DISPLAY_ATTRIBUTES.rl.r, 

3; 4990 ; 2 VIDEO_ATTRIBUTES.ri.r, 

; peed ! CHAR_SET. rl.) 

; 4998 i FORMAL PARAMETERS: 

: 4995 NUM_ROWS.rl.r Number of rows in new virtual display. 

; i3e7 A 1 NUM_COLS.rl.r Number of columns in new virtual display. 

: 4999 1! NEW_DISPLAY_ID.wl.r Virtual display id of newly-created 

3 5001 : virtual display. 

; 002 : DISPLAY_ATTRIBUTES.rl.r The default display attributes. 

: 3008 1: SMGSM_BORDER if virtual isplay is to be 

: re ! displayed with a border. 

: 4 1: SMGSM_TRUNC_ICON if an icon should be displayed 
: 45 1! when text overflows the display 

: 3 rae 3 

; 5011 6 1! SMGSM_DISPLAY_CONTROLS if carriage controls (CR, LF, 
: ig 47 1! TF, VT, HT) should be displayed instead 
3 Hy ; : yg PRK. 

: 5015 0 1 i VIDEO_ATTRIBUTES.rl.r The default renditi code to 

: 1g 1! appli to all output to this d soley ee 

; : § : ouere dden on a particular qutnur Ce 

: 8 41: Values: 

; 5020 5.9 


4 
i ; Allocate space for DCB itself. Quit if we can't get it. 


If WOT (STATUS = LIBSGET_VM ( ZREF (DCB_K_SIZE), DCB)) 
RETURN (. STATUS); 
CHSFILL (0, DCB_K_SIZE, .D0CB); ! set all fields to defauit of 0 


ISPLAY_LIN SMGSDISPLAY - Virtual Display Linkages =-Jan-1985 21:46:1 AX-11 Bliss-32 v4.0-742 a 45 | 
eng53 SaceeeREAt ATE hinte RTUAL DISPLAY = tres e Virtast di B= Jan 1985 73:58:18 SMGRTL .BUGSRC SRGDISLIN. 832;1 — ) ic 
: 1 $ ! SAGSM_BL INK displays characters blinking. : 
; : 1! SMGSM_BOLD gi splors characters in ; 
: ¢ ; : } er-than-normal intensity. : 
3 $ 1: SMGSM_REVERSE displays cherecters in reverse ; 
qj . site def joey ey 
3 : o 3 
: s the virtua display. : 
3 1 : SMGSM_UNDERLINE displays characters underlined. : 
: 8 5 .% CHAR_SET.rb.r Spec ities he default character set to be used ; 
; 50 1} for this display. : 
3 ° 5 1; Recognized values are 3 
3 1! ne mGSC “Safe KINGDOM $ 
: ° : : mceeme ASCI ieetay tha : 
: 50 1: SMGSC AL Cohan : 
i 5040 1 | SRGSCIALT~GRAPHICS : 
: i ; ; IMPLICIT IK. uTS: ; 
t Ses Vi — 
; $08 1 { IMPLICIT ouTPuTS: ; 
es iin : 
: Bay ; : COMPLETION STATUS: : 
: 5089 1 i $$$_NORMAL Normal successful completion ; 
3 2027 : } LIBS_INSVIRMEM Insufficient virtual memory to allocate needed 3 
3 ! er. 3 
; 5055 7! SMGS_INVARG Unrecognized Video Attributes 3 
: 828 ! or Unrecognized Display Attributes : 
: 505 1 ' SIDE EFFECTS: 3 
; 505 . F 
: 5 1i NONE ; 
: 1 1 jen ; 
; BEGIN é 
3 LOCAL 3 
3 STATUS ! S$tetus ( subroutine calls 3 
; DCB : REF $OCB DEC. i Addr of display control blo ock : 
; DESC : REF BLOCK BYTE}; {Pointer to to fynani ¢ descriptor in : 


PPP PAPPDPAADPADPDMAAAN 
i ee | 
Oru = w 
—— 
No Ve ute 


07 


4 
SRGRRTSPLAYLIm spospy sei LAMtSac biseth OMepLayNinteger 9, SaeectORE #:sg 1S YACHT Shs 


ROW START) = 1; 
NO : 


Ows) : NUM _ROWS ; 


1 
1 
1 
1 
1 
1 
1 


$T ; 
O48 = ..NUM_COLS; 
I = ..NUM_ROWS * ..NUM_COLS; 


ault display attributes, default video attributes and 
aracter set. 
8 


t ch 

DCB_B_DEF _DISPLAY_ATIR] = ..DISPLAY_ATTRIBUTES; 
DCB_B_DEF- VIDEO avin = ..VIDFO_ATTRIBUTES; 
DCB_B_DEF-CHAR_SET = ..CHAR_SET; 


te 
: Set up various fields in the OCB 


DCB COCB_L_DID) = .DCB; ! Display id itself -- the 
! address of the DCB 


! Cursor row and column to home 


WN 9 OBNOAOVE UW ("OOOVNOUE WW 


preter etter titties 


ww 
; 


DCB [DCB_W_CURSOR_ROW) = 1; 
DCB CDCB"W~CURSOR-COL) = 1: 
8 


a 

C 
DCB (DCB_B_STRUCT es? = 0CB_K_S 
DCB COCB_W_DCB_LEAGTH = DCB_K_S 
if 
= .d¢ 


DCB (DCB_W_TOP_OF SCRREG) = .DCB 
DCB CDCB[W"BOTTOM~OF _SCRREG) = .D 


TRUCT_TYPE; ! pers as being a OCB 
12€; ! Size of structure 
DCB_W_ ROW START); 
8 tots UsAO_ROUSS: 
a ! inttscfolling region 
pi igcate enough space for both the text buffer and the attribute 
fe ‘ 


SSLERRESLS 


IF NOT (STATUS = LIBSGET_VM on 
THE 


(-0CB CDCB_L BUFSIZE) #2), 
CoCB_A_TEXT~6O0F })) 


sad aed ad 2d aad 4 


NOU WN OOO V8 Ui fw o 


N 
GEGIN ! Ran out of space 


i If we can't get enough space for the buffers, we might as well 
} give back the 9CB space itself. . 


LIGSFREE_VM ( ZREF (DCB_K_SIZE), OCB); ! Return DCB space 

RETURN (.STATUS); ! Return the LIBS_INSVIRMEM from the 
! puffer allocation attempt 

END; ! Ran out of space 


COONAN EW O OWA EWI OOD 


PPPAARTIAAIAA 


e 
: Use upper half of space allocated as the attribute buffer. 


DCB COCB_A_ATTR_BUFJ = .DCB COCB_A_TEXT_BUF] + .0CB CDOCB_L_BUFSIZE); 


wn 
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mk a ee a a wt 4 9 = 8 SS) as ts SS ts Ls st 


'¢ 
‘. Initialize text and attribute buffers. 
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SAGSDISPLAY_LIN sncee 
1-09 SMGS 
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i If we are dealing with a non=stan 


5 
KS = Virtual Display Linkages B-san-19 5 21:46:1 
TUAL_ DISPLAY = Create Virtoal di met i $3:98:18 
FILL (2C° *, ,DCB COCB_L_BUFSIZE), .0CB (DCB_A_TEXT_BUFJ); 
FILL (.0CB foCe 8 oer vie9 16: .0CB DEB tnBur stat) 
-DCB LOCB-A_ATTR_BuF JJ; 


ard character set, allocate the 


! char set buffer, If we can't, soit out, giving back all the space 
allocated on this transaction. 


IF .DCB CDCB_6_DEF_CHAR_SET] NEQ 0 
THEN 


— + 2 — 4 


SFUPVSUSVSVSVUSISISIS SISSON 


SAIS LLAL ALANNA & & & yt at oP a? ot 
WN — SO OONOVEW -ODOOWNOuU Sw —0O”0 
CNAME WN OOO NOUS WR" OOONOU FE WO 


o 
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! Will need char_set buffe 
$ 


BEGIN. ! uff 
IF NOT (STATUS = LIBSGET“VM ( DCB 


THEN 
BEGIN ! Bailout 


i If we can't get space for buffer we need, 
! the text and attribute buffer, and DCB it 
quitting. 


LIBSFREE_VM (XREF (2+ 0 
LIBSFREE_VM (ZREF (OCB_R_ 
RETURN (7STATUS); 

ND; ! Bailout 


CHSFILL (.0CB foCB_B DEF CHAR. SET] -0CB COCB_L_BUFSIZE), 
.DCB COCBTA~CHAR_SET "BUF I); 


END; ! Will need char_set buffer 


—w 
= 


r 
FDCB_t But SIZE 
DCB-A~CHAR_SE 


e back the 


iv 
self before 


Allocate and clear the line characteristics vector. 
IF NOT (STATUS = LIBSGET_VM ( ZREF ( .DCB COCB_W_NO ROWS) +1), 


uw ANH SOO NOO RUIN Ooo 


PORNO at = = = = BOD OOOO O000.00 00000 OO O00 00000000 OD OD OD OD OO ed ed eh eh ed ed ed 
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Ek ek el et et ek et ek ek ek et ek kk eke ek tek Dd ek ek ke 


a DCB COCB_A_LINE_CHARJJ> 
BEGIN ! Error path 


i Give back all space accumulated on this trans. before 
bailing out. 


LIBSFREE_VM (ZREF (2 * .0CB COCB L_BUFSIZE)), 
DCB CDCB_A_TEXT_BUFI); 


IF .DCB COCB_A_CHAR_SET_BUF) NEQ 0 
LIBSFREE_VM ( DCB COCB_L_BUFSIZE), DCB CDCB_A_CHAR_SET_BUF)); 
LIBSFREE_VM (XREF (DCB_K_SIZE), DCB); 


RETURN (.STATUS); 
END; ! Error path 


CHSFILL ( 0, .0CB COCB_W_NO_ROWS) + 1, .DCB CDCB_A_LINE_CHAR)); 


SMGRTL .BUGSRC 


pared) LS V4.0-74 
SMGDISLIN.B32;1 
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UAL_DISPLAY = Eres e Virtual Di See $3288: 18 SMGRTL BUSERCTSMCO TSC fM.832;1 ° (465 


~ DCB [DCB_A.PP_NEXT] = DCB [DCB_A_PP_NEXT); 
DCB CDCBTA-PP-PREV] = DCB COCB"A-PP“NEXTI: 


1 
Initialize border label descriptor to virgin dynamic string descriptor 


DESC = DCB CDCB_Q_LABEL_DESC]; 


DESC Uithy CLASS = P 


DESC COSCSB_DTYPE 


'¢ 
Return the new display id to caller 


»NEW_DISPLAY_ID = .DCB; 


S 

R 

14 

Initialize pasting queue headers to point to self. 
RETURN (SS$_NORMAL) ; 

1 END; 


PUPP PVPS SPISISISISISISISIVISVIVIIVITIVITL |? 


Stele ala lal, ee ee ek ee ed et et ae ek et ek at ae 


De dil Ne le tae eh le tel De na ach ach ah tah ah teh teh ma shah a 
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! Routine SMGSSCREATE_VIRTUAL_DISPLAY 


-ENTRY SMGSSCREATE VIRTUAL DISPLAY, Save R2,R3,R4,-; 5200 
RS5,R6,R7,ROR 


59 000000006 00 MOVAB LIBSFREE' VM. R9 : 
8 000000006 00 MOV L1BSGET_OM, RB : 
SE 0 SUBL #8, SP ; 

4 AE PUSHAB océ > $207 
04 AE 0 8F MOVZBL #112, 4(SP) : 
06 =A PUSHAB 4 F 
i rote: SREY : 
03 BLBS status, 1$ : 

56 on Oa ROVL. DEB, RG : 5311 
0070 8F 00 6E 06 MOVES OO. «SPD, #0, #112, (R6) 
66 64 mOVW =o #1, (RO) ; 
2 a6 04 MOVW @NUM_ROWS, 2(R6) : 
4 6 Bf mMOVY #1, &(R6) ; 
6 Ab 0 BC MOVW.  @NUM_COLS, 6(R6) ; 
3c Ab 4 BC 1 BC MULL3  @NUM"COLS. @NUM_ROWS, g0(R6) : 
F AG 10 BC le) @DISPLAY_ATTRIBOTES, 47(R6) ; 
a6 14 BC MOVB = aVIDEO ATTRIBUTES. bocre) : 
igo & Be at, Sein : 
28 Ks 00010001 &F move 8 ssi) hdcR6) : 
45 A 70 «BF ROVIBY #112, 69(R6) : 
ot Pitas gy | 
04 AE 3c 01 78 ASHL ne Daa 4 (SP) : 


SMGSDISPLAY_LIN SMGS$DI 
097 - SMGSSC 
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S = Virtua 
UAL_DISPLA 


fsplay Linkages 
04 A 44 0 
| 
4 aa | 5 
ge Ms cH 
10 9 ¢C 
eb 
14 8 
30 oA 33 
ae 
as: 
i of 
10 A6 oF 
01 8 
04 ag OF 
4 11 
«8 Y 
18 8B ° 
04 A 0 00 
$5 hs oF 0 
A C 
0% AE pe 
4 A Ff 
fF 
i 00 
0 it 
04 AE OF 
02 F 
"8 s oF 
0 
8 ne of 
C A fF 
02 FB 
4 AE fF 
me: 
04 03 +4 
3? 8 
ae 
$8 6 
A 
A 
BF B 
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a a ed a dd od ad ad mt =I IS QO OOO OOO OCOO 


be 12:58:13 ESManteSeussacSsmebsctN.032: 1 


4(SP) 
ie. LIBSGET_VM 
RO, STAT 
TATUS, 
OCB, R6 
a5 he) 16(R6), 0(R6) 
#0, (SP), #32, 60(R6), @16(R6) 
#0, (SP), 46(R6), 60(R6), @20(R6) 
48(R6) 
4 

4(R6) 

(R6) 

i. RIBSeGT vm 
StAtUs, fs 


6(R6) 
#1, 60(R6), 4(SP) 
4(§P) 


one’ RO 
#0, (SP), 48(RO), 60(RO), @24(RO) 


IBSGET_VM 
TATUS 
ae 

O(R2), 4(SP) 


BSFREE_VM 


MOF eS —O 340M 


BSFREE_VM 

4(SP) 

2, LIBSFREE_VM 
US, RO 


FBO BOnvonvaes lf BUD aLrrrn 


“® 
SAO 
> 
= wr 
~ 


3 RE) RO 


90, (SP), #0, RO, @76(R6) 
Hat a 
P556. 2xbesc) 
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; 5365 
; 5370 

$372 
: 5379 


ae 
: 82 


; 539 


; 5407 
; $407 
; 32} 
; 541 


S 5419 


: 5421 


5350 


539 
5398 


5406 


415 
414 
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i865 SMCSSCREAT tf TUAL_DISPLAY = tr reate Virtual di mee Fi #3: 38: 18 SNGRTL BUGERESSMCD GS. tW.B32; 31 one é 
oc C 6 00 00148 MOVL R6, @NEW_DISPLAY_ID 3 
8 1 00 0014C MOVL wi, RO ~ , 3 344? 
04 0014F RET 3 5448 


; Routine Size: 336 bytes, Routine Base: _SMGSCODE + 1BAE 


; 5214 5449 1 !<BLF/PAGE> 
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SDISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages basa 5 21:46:1 AX-11 Bliss-32 V4.0-742 Pa 51 | 
3n85 SMCSSCREATE HCG - Create wCB ons is buf is ~g0n= 1382 es SMGRTL ..BUGSRC JSMGDISLIN.B32;1 oe 33} ; 
1 4 ZSBTTL ots te gL WCB = Create WCB and its buffers’ 
1 GLOBAL ROUTINE SMGSSCREATE_wWCB ‘ 
COLS, 
WCB_ADOR 


'e4 
FUNCTIONAL DESCRIPTION: 


This routine allocates space for the window control block and 
its window text and attribute buffers and initializes them. 
Two sets of these two buffers are built <= one to reflect what 
is currently on the screen and one to build up what the next 
screen image should look Like. 


CALLING SEQUENCE: 


PEA QAPLXQPEDIAIIAIASSII 


oo 


NOUS WO OONOULS WTO 


COMPLETION STATUS: 


oo 
ON rs 


S$S$_NORMAL Normal successful completion 
L18S_INSVIRMEM inguftic ent virtual memory to allocate needed 
uffer. 


46 ret_status.wlc.v = SMGSSCREATE_wWCB ( ROWS.rl.r, 
468 COLS.rl.r, 
198 WCB_ADDR.wl.r) 
$f] FORMAL PARAMETERS: 

47 ROWS. rl.r No. of rows in each of the buffers 
rtf COLS.rl.r No. of columns in each of the buffers 
47 WCB_ADDR.wl.r Address of the newly-created WCB -- returned to 
47 caller. 

47 

480 

481 

2 ; IMPLICIT INPUTS: 

: : NONE 

rt IMPLICIT OUTPUTS: 

4 NONE 

4 

4 

4 

4 

4 

4 


& 
oO 
w 


FARANVLSSSLESER 


SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
WCB_: REF SWCB_DECL, ' address of WCB allocated. 
STATUS; ' Status of subroutine calls 


LVIUIVIVIVP”IUIVIVIVIVIVIVIULUSIVIVIVSIVIVLVIVSUSVSVSVSVSVSUSUSUSVOSVOSISISISISISIS 


= 
—~ 
a ~ 


'¢ 


i Allocate space for the WCB itself. 


Se Se Se Ge Se Ge Se Ge Se Ge Ss Ss Ge Ge Se Se Be Ge Fe Ge Ge Ge Ge Ge Ge SF Oe Ge Ge GHGs FH Ss SH Ss SH Ss Oe Se FHSS SS Se Se Se Se Se SH SHSESH SESE SESH Ss ee 


AAAI BB 


=3 
C 


Reis 
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oh iss- 
TE_WCB = Create WCB an buffers =Oct-1 SMGRTL.BUGSR 


CO gue LIN snes seis Y_LINKS = Virtual Oisploy Linkages $43 gon 1387 ¢: $¢: 1% AX-11 BL B32;1 
le 


ite NOT (STATUS = LIBSGET_VM (ZREF (WCB_K_SIZE), WCB)) 
"RETURN (. STATUS); 
CHSFILL (0, WCB_K_SIZE, .WCB); ! Clear all fields to default 0 


WCB CWCB_L_BUFSIZEJ = ..ROWS * ..COLS; ! Overall size of each buffer 


14 
ee * - get space for all 4 buffers at once, returning an error if 
1 we 
IF NOT (STATUS = LIBSGET_VM ( beet (4 * .WCB CWCB_L_BUFSIZEJ), 
en B CWCB_A_TEXT_BUFI)) 


BEGIN ! No more space 


it we can't get space for buffers, we might as well give back 
a the WCB space itself. 


; 

1} 

18 

14 

1? 

i 

18 

: 

§ 

4 

5 

; 

LIBSFREE_ at Sd (WCB_K_SIZE), WCB); 
. END; i'No more space 
; carve up the space gotten into the 4 buffers we need. 
: : 

; 

: 

; 

§ 

4 

5 

; 

5 

; 

§ 

4 

5 

‘ 


WCB CWCB_A_ATTR_BUFJ -WCB CWCB_A_TEXT_BUF -WCB CWCB_L_BUFSIZE); 
WCB CWCB_A_SCR_TEXT_BUF] = = [WCB WCB_A_TEXT_BUF : § * hs WCB_L-BUF SIZE); 
WCB LWCBLASCR-ATTR_BUF) = .WCB CWCB-A_TEXT_BUF) + 3 * WCB_L-BUF SIZE); 


'¢ 
# Initialize the working buffers. 


CHSFILL (ZC' *, .WCB CWCB_L_BUF Site}. -WCB CWCB_A_TEXT_BUF J); 


CHSFILL (0, -wCB CWCB- —L-BUF -WCB CWCB[A_ATTR_BUF J); 


te 

i Initialize the buffers re resenting what's on the sce en a ~~ 
i matchable text as an initial state, This means the f ret 

i minimum screen update looks at it it will cause the entire ta! 
x to be repainted. 


CHSFILL (-1, .WCB CWCB_L_B pur elted. -WCB Puce -ALSCR_T exT Stee 
FSIZ BUA_SCR-A ; 


CHSFILL (0, .WCB CWCBUL-BUFSIZEJ, .WCB 


'¢ 

i ag yt phe Line characteristic vectors. aaare are tye of them -- 
i one for tex ' burter @ and one for she. ser scree o fext buffer. We 

t Sltecete’ -F nitialize them together for fie ency. 


; 
"JF NOT (STATUS = LIBSGET_VM ( ZREF (2 * (..ROWS + 1)) 
6 THEN WCB CWCB_A_LINE_CHAR}))” 


' 
66 gEGIN ! Error path 


H 5 
$ ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages =-Jan-1985 21:46:1 AX-11 Bliss-32 V4.0-742 P 53 
ngs SHOSSCREATE “HCD - Create wCB ant its buffers eet 1 G3:88: 18 YoNGRTL BUSSReSsMCdySe ta.e32:1 age 47} 
rf H Give back all space accumulated on this transaction. 


LIBSFREE_VM ( ZREF (4 * .wCB CWCB | .BUFSIZEI), 


Wr 


WCB CWCB_A_TEXT_BUFJ 


: 5335 LIBSFREE_VM ( XREF (WCB_K_SIZE), WCB); 

: om END; T Error path 

; 8 , Clear both buffer to zero at once 

; 49 fh CHSFILL (0, 2 * (..ROWS + 1), .WCB CWCB_A_LINE_CHARJ); 

; 7 14 

$ 3 s§ ! Use upper half of space just allocated and cleared as the line 

: rt: are characteristics vector for the screen text buffer. 

; § i ; WCB CWCB_A_SCR_LINE_CHAR] = .WCB CWCB_A_LINE_CHAR] + ..ROWS + 1; 
; 1+ 

: 3 § Fill in rest of WCB and return the address of the WCB we've built. 
; i ; 5 2  wCB C[WCB_W_NO ROWS) = ..ROWS;: 

; ; 6 WCB CWCB-W-RO@ START) = 1; 

: 535 5 wCB CWCB-W-NO_COLS) = ..COLS; 

; 3 2 $ wCB CWCB-WUCOC_START] = 1; 

: 36 590 .WCB_ADDR = .WCB; 

3 3 H 591 

; 5358 235 RETURN (SS$_NORMAL) ; 

; 5359 59 END; ! Routine SMGSSCREATE_wWCB 


OFFC 00000 ENTRY SHGSSCREATE_UCB, Save R2,R3,R4,R5,R6,R7,R8,-; 5451 
5B 000000006 00 9 MOV LIGSEREE_VM. R11 ; 
5E § SUBL2 #8, SP F 
04 AE OF PUSHAB we : 5508 
04 AE 34 D0 MOVL #52, 4(SP) : 
04 AE OF PUSHAB 4(SP) ; 
000000006 00 F CALLS ae, LIBSGET_VM ; 
A D MOVL OR STATUS : 
$ o 6 abvL status, : 5512 
34 00 6E 06 Be t mOVCS Hie (SP), #0, #52, (R6) ; 
9 6 BC 00 \ MOVL. @ROWS, RO : 5514 
28 Ab 9 3 B 10 MULL3 aco 5, R9, 40(R6) ; 
AG SF 000 PUSHAB 8(R6) : $531 
04 AE 28 A 02 78 QO03A ASHL #2, 40(R6), 4(SP) ; 5520 
04 AE 9F 000 9 PUSHAB 4(SP) ; 
000000006 00 FB 000 CALLS #2, LIBSGET_VM : $521 
A DO Q004A MOVL OR STATUS : 
1 A f p BLBS _— STATUS, : 
04 AE 9F 000 PUSHAB WCB : $528 


= 


Bete Se Se Ge Se Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge FH Se Se BH Se Se Fe Se SH Se Sees Oe Se Se Se SH Se Se Sees Se Oe Se Se 8H SH SH Se Se Se Oe Se Se Sees 
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SMGSSCREATE_WCB = Create WCB and 


04 AE 


04 
000000006 


3; Routine Size: 262 bytes, 


: 5360 5594 1 !<BLF/PAGE> 


Routine Base: 


04 


5 


0 
A 
3 
A 
0 
A 
0 
8 
A 
5 


a—DO~ 


_SMGSCODE 


buffers 


+ 1CFE 


GosinclOHS 2):u:14  YaNedt BLinsc3e yesQo7g 


#52, 4(SP) 


LIBSFREE_ VM 
US, RO 


7 » 12(R6) 
vena). 20(R6) 


tab) | (R 
i, tsp): $35" tra), 


#0, (SP), #0, (RB), 
#0, (SP), #-1, (RB), 
#0, (SP), #0, (RB), 


Paar 2 
Re R2 


ie: We 4(SP) 

as uRteeT_m 

STATUS. 38 

eee 

#2, (RB), 4(SP) 

#2 LIBSFREE_VM 

4(SP) 

#2, LIBSFREE_VM 
» (SP), #0, R2, @44(R7) 
44087), RI, RO 


48(R7) 
ate a) 


+ 

1(RO 

R9. 

i Ute "4(R7) 
; QWCB_ADDR 


a0(R7) 
@12(R6) 
@20(R6) 
924 (R6) 
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FUSS 
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5 
ISPLAY LINKS = Virtual Display Linkages B-san-1985 $4:96:16 AX-11 BLi 


ZSBTTL ut tae eheeenek WCB = Get rid of WCB and its buffers’ 
GLOBAL ROUTINE SMGSSDEACLOCATE_WCB (WCB : REF SWCB_DECL) = 


; FUNCTIONAL DESCRIPTION: 


This routine deallocates space for the window control block and 
its window text and attribute buffers. 


i CALLING SEQUENCE: 

ret_status.wic.v = SMGSSCREATE_WCB ( WCB.wl.r) 

i FORMAL PARAMETERS: 

WCB.wl.r Address of the previously-created WCB. 
i IMPLICIT INPUTS: 


' 
‘ 
' 
' 
' 
i 
' 
t 
' 
1 
' 
' 
' 
contents of WCB 
; IMPLICIT OUTPUTS: 

i 

' 

' 

' 

' 

' 

i] 

' 

' 

J 

' 


: NONE 

i COMPLETION STATUS: 
SS$_NORMAL Normal successful sempletten 
L16$_xxx Errors from LIBSFREE_VM 

i SIDE EFFECTS: 

i NONE 

"BEGIN 

LOCAL 

RET_STATUS, ' Status to be returned to caller 
STATUS; ! Status of subroutine calls 


'¢ 

: Attempt to deallocate the space for all 4 buffers (text and attr) at 
' once. 

le 


RET_STATUS = LIBSFREE_VM ( BREF (4 « WCB CWB | BUFSIZEI), 
WCB CWwCB_A_TEXT_BUF I); 


'¢ 
: Se yenet to deallocate the alternate character set buffers if they 
! exist. 


IF .WCB CWCB_A_CHAR_SET_BUF] NEQ 0 
THEN 


EGIN ! Free alt char set buffers 

! NOTE: Right now we free them seperately. If it turns out 
! they are allocated as a adjacent pair, we can deallocate 
! them with a single call. 


STATUS = LIBSFREE_VM ( WCB CWCB_L_BUFSIZE], 


um 
a 


-0-74 
SMGDISLIN.B32;1 


SMGRTL .BU 


ISPLAY_LIN SMGSDISPLAY_LINK Virtual Display Linka ee =Jan-1985 21:46:1 AX-11 Bliss-3 0-742 Pa 6 
; SMGSSDEALLOCATE_ vee rid of ute and its bu B= Jan-1985 G3:88:18 SMGRTL.BUGSR Resseb tS, 14.832; 31 oe 136 


; re é 4 WCB CWCB_A_CHAR_SET_8UF)); 
: 2 é ¢ IF NOT .STATUS THEN RET_STATUS = .STATUS ; ! th on an error 
3 i sta 
3; 54 
3: 54 6 8 STATUS = LIBSFREE_VM ( WCB CWCB_L_BUFSIZE), 
; re 5 ° 5 WCB CWCB[A-SCR_CHAR_SET_BUF J); 
: 54 $ 66 IF NOT .STATUS THEN RET_STATUS = .STATUS ; ! Propagate an error 
> 34 8 661 ' status 
: r 666 END; ! Free alt char set buffers 
: 5431 ee fe 
3; 34 ¢ 5 i Deallocate the Line characteristics a These were allocated 
: : eg 1 as a pair so can be deallocated as a pair 
: 5435 o68 "  $TATUS = LIBSFREE VM ( ZREF ( 2 © (WCB rvce W.NO_ROWS)] + 1)), 
3 rs $8 wcB cock. A LINE CHARIS; ~ 
: 5671 IF NOT .STATUS THEN RET_STATUS = .STATUS; ! Propagate an error 
: 9 ore ' status 
: ree ore '¢ 
; 679 Deallocate the WCB itself. 
: 5464 67 "STATUS = LIBSFREE_VM (BREF (WCB_K_SIZE), WCB); 
3 5445 of IF NOT .STATUS THEN RET_STATUS"=.STATUS ; ! Propagate an error status 
: 447 680 RETURN (.RET_STATUS); 
: 5449 2 END; ! Routine SMGSSDEALLOCATE_wCB 
001C ENTRY ait tie etd WCB, Save R2,R3,R4 é 
4 000000006 80 0 ot Hy | jeer REE_VM 3 
C SUBL : 
2 04 A r ROVL its ne ; 
8 A f PUSHAB 3 
06 AE 28 A2 Oe 78 OO ASHL me dOcR2), 4(SP) ; 
mee . 1 ae t SFREE VA ; 
#1 g MOVL i ae seTATOS i. 
10 A 8 0( TSTL 3 
1 BEQL 3 
1 A 44 PUSHAB be ; é 
2 F PUSHAB 3 
F cts 3 i eae vA 3 
3 E BL STA us, 18 : 
; i : Poetas ar :. RET_STATUS is 
6 Ad OF PUSHAB aber : 3 
F ets L TOSFREE _VvA 3 
if 7 8.8 4 Atu ; 
0 ROVL STATUS: RET_STATUS 3 


FET rayne eTRDEACLOCATE oce © Geteeig of oberana ees bu ba era19be f3:98:15 — ESMarti°buesReSsmcoiscin.ese;1 "88°43 


A 00045 28:  — PUSHAB 44(R2) : 5669 
51 6S A ; DC ; ROVZUL ii BF i : 3888 
04 AE 1 p if ASHL rel, a(SPD 3 
04 AE £0 dor ADDL2 4 (SP) ; 
4 F CALLS 8 L 1BSEREE va : 5669 
; E8 00058 BLBS : 5671 
BO 0008 MOVL STATUS. RET_STATUS ; 
06 A 1061 38 PUSHAB ; 5677 
AE 34 0 0006 MOVL #52, &(SP) : 
OOS Fe go0ee CAs. 7b {OSE REE_vm 
EB 0006 LBS ; $678 
AP a : 
5 : : Py 
04 0007? RET  3¢89 


; Routine Size: 120 bytes, Routine Base: _SMGSCODE + 1604 


; 5450 5683 1 !<BLF/PAGE> 


a 5 
HGS7 SPUAT-LIM SHGSSOUPL-VIRIUAL DISPLAY DupCleate o'virtuat S-der-t9be G2:S6c18 — EaManreguesacssmestscia.esz;1 2" 438 


=< 


: 54 1 ZSBTTL *SMGSSDUPL_VIRTUAL_DISPLAY = Duplicate a virtual display’ : 
: 08 § 1 GLOBAL ROUTINE SAGSSDUPL CUIRTUAL DISPLAY _— : 
3; 54546 6 1 CURR_DISPLAY_ID, é 
; 5455 ! NEW _BISPLAY_TD : 
: ¢ $ 689 1 146 by : 
3 +28 ot : } FUNCTIONAL DESCRIPTION: : 
: 5460 694 1 This routine makes a copy of an existing virtual display. ; 
: 5461 695 1! assigning ft a new virtual display number. The new virtual F 
3: 546 694 1! will not be pasted anywhere -- even if the virtual display from s 
3 ret £93 : } which it was created was. : 
i 5465 e3 1 CALLING SEQUENCE: 
: 546 639 1} ret_status.wic.v = SMGSSDUPL_VIRTUAL_DISPLAY (CURR_DISPLAY_ID, : 
: : op : NEW_BISPLAY_TD) : 
: seh 70 | FORMAL PARAMETERS: 3 
: 547 706 1} CURR_DISPLAY_ID.rl.r Display id of virtual display to be : 
3 ar7 : 5 ' replicated. : 
> 5475 707 1: NEW_DISPLAY_ID.wl.r Display id of newly-created virtual : 
: res . : Gisplay. : 
: 478 210 1} IMPLICIT INPUTS: F 
3; 54 71 7 3 ° 
; 56 ay ze NONE Fs 
; 5481 71 1! 3 
3; 34 7146 1°! IMPLICIT OUTPUTS: é 
; 54 7165 1! 3 
3; 54 rg 1! NONE é 
; 5485 71 1! PF 
3; 34 718 1°! COMPLETION STATUS: $ 
: re ay } $S$_NORMAL Normal successful completion ; 
3 u u 3 
; mH) g : ' : L1B8S_INSVIRMEM Inayttictent virtual memory to allocate needed : 
: ' er. 3 
; 5491 7 § 1! F 
3 4 726 1 ! SIDE EFFECTS: 3 
3 9 725 1! 3 
3 9% 766 1! NONE é 
+ 3088 So 3 pein ; 
F 39 7 LOCAL : 
3 bs 7 0cB : REF SDCB_DECL, ! Address of current OCB. 3 
3; 54 731 DCB_NEW : REF $DCB DECL, : ress of new DCB 3 
; r ¢ STATUS; ! Status of subroutine calls : 
; 4 ? SSAGSGET_DCB (.CURR_DISPLAY1D, DCB); | Get addr of DCB for current : 
3 , 5 ! display : 
: 5 7 'e : 
3 7 ' If @ backup DCB does not yet exist, allocate one. 3 
; 7 ! Make a new y rtual display using the sizes and attributes of the old 3 
; 740 ! one. Quit if we can't. g 
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NAAR AN "OQ OONOUS uM 
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MET 


SONA 


ANAM 5 Bitte ta H-Jan-1905 21:46:14 


te hen ig ak apn Pi i ENP Ast AB nt is py Sten eats as 


{en -DCB COCB_A_BACKUP_DCB) EQL 


"BEGIN ' Ist time, creat 
IF NOT (STATUS = sachsen 


{ 
EW. 
int EF" ( 
REF ( 
F ¢ " 
THEN 
RETURN (.STATUS); 


SSMGSGET_DCB (.NEW_DISPLAY_ID, DCB_NEW); 


0 
he back 
" VIRIUAL DIS 
CB_W_NO-ROW 
Ht t8- 
(' 
CB 
(8 


1 
ret 
cB 
iSPLA 
.0C 
“DC 
“OCB 


14 
Store the new display id in the new DCB. 
DCB_NEW CDCB_L_DID] = ..NEW_DISPLAY_ID; 


END ! Ist time, create the backup 


BEGIN ! Backup already exist 

NEW DISPLAY. ID = .DCB ote. i “BACKUP 
ocB B_REw = DCB COCB-A BACKUP 
ND; ! Backup already extsts 


'¢ 


A the current to the new. 


CHSMOVE ( .DCB 


CHSMOVE ( 


'¢ 
_Copy over the Line characteristics vector. 
CHSMOVE ( a+ | pce. ¥ .NO_ROWS) + 
pcb eAt it ie 
Dee hee Pree A_CINE_CHAR}); 


'¢ 
_Copy over stuff relating to borders and labels. 


I a aa CDCB_V_BORDERED) 
BEGIN ! Bordered 
LOCAL 
DESC : REF BLOCK (8,BYTE); 


AX-11 Bliss-3 


° 9 
SMGRTL BUSERESSMCD GS, 14.832; 1 age 43} 


<az 
—-—-® 
> = 
— 

a 


i sit "ther eet 


! Get OCB address of new 


p~bepi; ! Return id of existing 
~0CB); 


i Now need to pony, over the current text and attribute buffers from 


! #bytes 
from 
! to 


fbytes 
from 
! to 


! Pointer to dynamic string 


—f 


D; 
END; ! Bordered 


'¢ 
: If alternate character set buffer involved, copy it over as well. 


6 
$ ISPLAY_LIN SMGSDISPLAY_LINKS = Virtual Display Linkages B-san-t 5 21:46:14 AX-11 Bliss-32 v4.0-742 Pa 
engse SMGSSDUPL_VIRTUAL_DISPLAY - dust icate a virtual we StS $3:38:16 SMGRTL BUGERCTSMCD GS, 1W.87251 ve 490 
79 ' descriptor in OCB for border 
Sef 138 ' label . 
. o} DESC = DCB CDCB_Q_LABEL_DESC); ' 
71 88 '¢ 
if Be If label exists, make a copy. 
74 06 IF .DESC CDSCSA_POINTER] NEQ 0 
575 0 THEN 
278 0 BEGIN ! Labei ed 
7 é 0 IF NOT (STATUS = LIB SCOPY_DxXOX ( .DESC 
78 1 DCB_NEW CDCB_Q_LABEL_DESC) )) 
579 1 THEN 
280 : RETURN (.STATUS); 
Be 581 DCB_NEW (DCB_W_LABEL_UNITS) = .DCB (DCB_W_LABEL_UNITS); 
rt 581 DCB_NEW (OCB_B_LABEL_POS) = .0CB ([0CB_B_LABEL_POS); 
5 581 DCB_NEW [DCB_B_LABEL_CHAR sg" = .0CB (DCB_B_LABEL_CHAR spa: 
HH He DCB_NEW DCB_V_LABEL_ CENTER = .0CB DCB_V_LABEL_ CENTER 3 
87 81 EN ' Labeled 
88 8 
89 8 
8 
8 
8 


FU FUSPUSESVSI SSSI 
PUPP AAAI 


oo 
on 


IF .DCB_NEW CDOCB_A_CHAR_SET_BI'F] NEQ 0 
THEN 


BEGIN ' Alt char set buffer involved 
IF NOT (STATUS = LIBSGET_VM (DCB (OoCcB 


SALEALNLS 


L_BUFSIZE), 
DCB_NEW [COCB_A_CHAR_SET_BUFJ)) 


THEN 
RETURN (.STATUS); 


WN — SO COBNOVUESWN—O0® WOU wn—-O0O@ 


Be Oe Oe Oe Se Se Be Oe Oe Se Ge Se Se FH Ge Oe Se Se Be Oe Se BH Se Oe Oe Ss Oe OH Oe Os Oe Se OH Se Oe Os Oe Oe Oe Oe Oe Oe Oe Se Oe os Se Gees 
= PRIPRAIPIPIPIPIPID HANNAH & APOPIPIPIPININIWE EE BF PPE LP TNE 


S33 
PUPP PUDVPU POPPA APA ASIAMA AU AUMAU UU 


5 

5 

5 

5 

; 

5 

560 CHSMOVE (.DCB (DCB_L_BUFSIZE), ' Num. 
2606 ° DCB_A_CHAR_SET_BUF) ' From 
603 5 .DCB_NEW [CDOCB_A_CHAR-SET_6UF)); i To 
et END; ! Alt char set buffer involved 

8609 8 5 

rt 9 Also preserve the current cursor postion. 

3008 § 4 DCB_NEW (DCB_W_CURSOR_ROW] = .DCB [OCB_W_CURSOR_ROW]); 

eei3 t DCB_NEW COCB_W_CURSOR_COLJ = .0CB COCB_W_CURSOR_COLJ; 

268 45 RETURN (SS$_NORMAL); 

5614 6 END; ! Routine SMGSSDUPL_VIRTUAL_DISPLAY 


03FC 00000 -ENTRY SAGSSOUPL VIRTUAL DISPLAY, Save R2.R3.RG.~ 5685 
$9 000000006 8F D0 00002 MOV. —-#SAGSINVDIS_ID, R9 


SMGSDISPLAY_LIN 
1-09 


04 


SMGSDISPLAY_LINKS = Virtual Dis 
SMGSSDUPL_VIRTUAL_DISPLAY = Dup 


i 


1 


ay Linkages 
cate a virtual 


9A 


4 
om 


0o—-FT OMS *"OWwowgo 


MO VTVINSO SO -9TT00— 
WOOO OWOO FO Ff OW" “OOOTDWAAO 


Wren 


—o *MOOmMo "oo 


WNnon"Ooncogo™ 


2s 


—>-?- 00-0? 


oo eo 


I= 


> +>~+— + 


“> 


=< 
oO 


2S 


Oba F813 | eMeat bse Res shea esc ta.es2.1 


#20, SP 
acuRR DISPLAY_ID, RO 
; (ROY, @CURRDISPLAY_ID 


6 (RO), #17 
R9, RO 


S 


pede dcB 
R 


), 16¢SP) 
>, 16(SP) 

>, 16¢SP) 

srLOUSPD 

» 20(SP) 
MGSSCREATE_VIRTUAL_DISPLAY 
TATUS 


AD BINNIE ZH FS FS FO W 
Aone novIvro gg 

CuunvweavegovF VOU oD 
Sew we / O~O~D 


DOORS UOPOLORMO NOOO ED 
amp. + -O-9C08-2. 22 enn =~ 


Ss, 7$ 
DISPLAY_ID, RO 
0), @NEW-DISPLAY_ID 


DBDEOowv 
© _ 
z2ec- 
@ 
So 


EW_DISPLAY_ID, DCB_NEW 
@NEW_DISPLAY_ID, 56(BCB_NEW) 


NAADDWBO 


B), &76(DCB_NEW) 
. 8s 


DBL FYNDBTO OOF OrwwD 


FOO AON ~an~ 


-n 


SRGSDISPLAY. LIN SM 
SMGSSDUPL_VIRTUAL_DISPLAY = Dup 


; Routine Size: 2 


GSDISPLAY_LINKS = Virtual Dis 


4 


000000006 : 
0 


18 867 1 8 
a, 
59 bytes, Routine Base: 


; 5615 5847 1 '<BLF/PAGE> 


f 


lay Linkages 
icate a virtual 


i : 
i i 


-SMGSCODE + 1E7C 


omnnNHMMMMmoO 
MMR PUMVUVBO OPN 


= 


-—_—— «OO 


Jan-19 
“Oct-19 


—o 
wie 


Be §2:58:13 


PUSHAB 


l 


AX-11 Bliss-3 
SMGRTL ..BUGSRC 


; 024 (DCB) a 
; 40(DCB_NEW) 


$smcoISUIN. B32;1 


24 (DCB_NEW) 


raed 
8 


; $831 


AB 


SMGSDISPLAY_LINKS = Virtual Display Linkages 
SMGSSLOCATE_PP = Locate Pasting packet for give 


ZSBTTL "SMGSSLOCAT 
GLOBAL ROUTIN 


SNGSDISPLAY_LIN 


at a 


VIFWN—O OONOUS WH O0O-4 


oe 
FUNCTIONAL DESCRIPTION: 


address of the pasting packet that joins this 
play to this pasteboard. 


CALLING SEQUENCE: 
ret_status.wlc.v = SMGSSLOCATE_PP ( 


PAEANAASSIIIVIVIVA ES 


FORMAL PARAMETERS: 


PAAR AA AAPA AAA AAAS 


oa 


IMPLICIT INPUTS: 


NOAA UN $9 ODNOA UNE OOONAOUNE WOW OD 


IMPLICIT OUTPUTS: 


> Ee Pa 


COMPLETION STATUS: 


WMWEWN—O 


SS$_NORMAL 
SMGS_NOTPASTED 
SIDE EFFECTS: 


OCAL 
SEARCH_DCB : REF SDCB_DECL, 


CURR_PP : REF SPP_DECL; 


SSSSSEss2 


PIPPI III II at a at a i hd dt st 


CURR_PP = .DCB CDCB_A_PP_NEXT); 


$3.2 23 33 OS er te a8 Se ee 


ma 


~ 


ooo 
~~ 
wn 


WN 


Ba Se Fe Se Se Fe Ge Ge Be Se Se Be Se Ss Ge Se Se Gs Se Ge Fe Se Se Se Ge Ge Gs Ge Gs Ge SF Se Se Ge BH Se FH Se SESH SS Se Oe Se SESE SHS Se SES Se Sees te ees 


at 


Address of a virtual display control block. 
Address of a pasteboard control block. 
Return address of the pasting packet 


represents the pasting of the 
display to the given pasteboar 


Normal successful completion 
Given display is not pasted to given pasteboard 


f the virtual display is currently batched, the batch ievel wi 
his means a match needs to be f 


d on the backup DCB address 
! OCB address. 


AX-11 Bliss-3 
SMGRTL.BUGSRC 


iven display and pasteboard' 


wbet=19Be 42:58:15 


§ 4.0-74 
SMGDISLIN.B32;1 


control block. 


} Addr pf the DCB we'll actually 
Addr of gesting packet being 


! Start with Ist PP in chain 


2 


GSDISPLAY_LIN 


SIS 


geeoceseececees 
oO uw WR OOSONOOR 


AOAO 
Sues 
Wwr— 


SESS 


SMG 
SMG 


5 


—CcOoOooco 


VIEAN @OOODNA NEM ( OODNOUE WI OOOO 


a nt 


DODOODOODDODDDDDDDDDDDODDOD0000000 


WANA onononononononenon 


$$ 


6 
IME SLT RLAAPRRA I Give SAIS HASHES WMGHL MEER Ms 


-Oct-1 SMGRTL .BUGSRCJSMGDISLIN.B32;1 


SEARCH_DCB = .DCB; 
Ven CDCB_L_BATCH_LEVEL] NEQ 0 
SEARCH_0CB = .DCB CDCB_A_BACKUP_DCBI; 


! Currently batched 


WHILE .CURR_PP NEQ DCB CDCB_A_PP_NEXTJ ! While any remain 
BEGIN ! Search for Packet with matching PBCB addr 
IF .CURK PP [PP_A_DCB_ADDR]_ EQL .SEARCH_DCB = AND 
-CURR_PP LPP“A_PBCB_ADDR] EQL .PBCB 
4 ! Desired packet found 
4 -PP = ,CURR_PP; 
4 RETURN (SSS_NORMAL) ; ! Return success 
END; ! Desired packet found 
CURR_PP = .CURR_PP CPP_A_NEXT_DCB); Opheruiee, step along 0B 
chain 


! side o 
END; ! Search for packet with matching PBCB addr 


t 
! If we fall out of the while loop, this virtual display is not pasted 
! to the specified pasteboard -- according to the pasting packets. 


+ 
le 


PP = Q; ! To reduce Liklihood someone will try to use it 
! and disregard status. 

RETURN (SMGS_NOTPASTED) ; ! Return failure 

END; ! Routine SMGSSLOCATE_PP 


-ENTRY SnSSSL QCATE_PP. Save R2,R3 
MOVL B, R 


0 ‘7s p 
} 0 A MOVL (RO), CURR_PP 
5 MOVL = seARcH_otB 
1 OA TSTL 28rd) 
04 BEQL 
40 A MOVL g4(R0), SEARCH. DCB 
20 A 5 1S: MOVAB 32(RO0). R 
; CPL R_PP, R2 
A BEOL 
53 10 Al CMPL (CURR_PP), SEARCH_DCB 
OF BNE 
08 Ac 14 7 cmt (CURR_PP), PBCB 
oc ; MOVL CURR_PP, aPP 
5 ) mt BAS 
51 61 28: MOVL (CURR PPD CURR_PP 
Bt ss: fim oP 
50 000000856 RF MOVL = #SMGS_NOTPASTED, RO 


Pege 19 


3899 
5908 
3318 


TnG97 =I" SRESBLOCATEDBP'= Locate Pasting packee tare give Scasectags #34621 USmantecauesncismediscin.esz;1 "20° 485 


04 00043 RET ; 5935 
; Routine Size: 68 bytes, Routine Base: _SMGSCODE + 1F7F 


; 5705 5936 1 !<BLF/PAGE> 


PUPP DUDV DV IV DVIV DIV DVDVLIVDVPVIVSVDVSIVLVSIUSVSUSUSVSVSUSV SISTA STS 


SRGSDISPLAY LIN 


SAN 
8 a dd dd I BOOO 
—~ 


CNAME WN "OOO NOUL Wn — 


Dap Pin i in in, i, Pe Se, iy Se in, Sn, Se, i i > i > te | 


“ We SS Sornsdrr om e 


SNAG 
ae 
oo 


SMGSSPASTE 


FER 


H 6 
SMGSDISPLAY_LINKS = Virtual Display Linkages =Jan-1985 21:46: AX-11 Bliss-3 
YOIRTUAL DISPLAY - peste’ vtrtmn disp mets i 73:88:18 SMGRTL .BUGSRC 
1 ZSBTTL ‘SMGSSPASTE VIRTUAL DISPLAY = Paste virtual display to pasteboard' 
GLOBAL ROUTINE SMGSSPASTE_JIRTUAL_DISPLAY ( 
DCB : REF secs pect 
PBCB : REF $PBCB_DECL, 
PASTEBOARD_ROW, 
) PASTEBOARD_ COL 


rd 


PUPVDV LIV IV DV LV IVPVSVSVSIVSTSVSVAAIAIA SIN 


~ 
WAS 


oO 
Re 
we 


MAMMA 
WN — 9 OONOULS UW OVOno 


FFES 
SO) a rr ar a Ba a a ee ee a ee ee ee ee ee ed ed ed ed ed 


LES 


SAN 
MEW SO OONOUS WO 0®@ 


DOODODOOOOOOOOOOO 


'e4¢ 


i FUNCTIONAL DESCRIPTION: 


The specified virtual display is ‘'pasted’’ tor tentes 

with respect to) a agent This makes the display visible. 
This is the inner paste routine. It assumes input parameters 
are all present and valid. further assumes that display 

poetics by DCB is not already pasted to pasteboard specified 
y ° 


CALLING SEQUENCE: 
ret_status.wic.v = tnsanethithinn sitabnainen +! ie! ( 


rab.r, 
PBCB.rab.r, 
PASTEBOARD_ROW.rl.r 
PASTEBOARD-COL.rl.rS 
FORMAL PARAMETERS: 
DCB.rab.r Address of virtual display to be pasted. 
PBCB.rab.r Address of the pasteboard on 


which the pasting is to take place. 


PASTEBOARD_ROW.ri.r Row on pasteboard which is to contain 
row 1 of the specified virtual display. 


PASTEBOARD_COL.rl.r Column on pasteboard which is to contain 
column 1 of the specified virtual 
display. 

IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 


§ V4.0=742 
SMGDISLIN.B32;1 


Page 106 


_m 


: Recalc. occlusions introduced by this new pasting. 
? i wot ( STATUS = SMGSSCHECK_OCCLUSION_FIRST ( .PBCB)) 
RETURN (.STATUS); ; 


secesesees: 


16 
: ce ulate the transformation onstants neeaed to copy this display's 
' bu 

! 


lc 

ffers into the associated window's buffers. 

if NOT ( STATUS = SMGSSCALC_PASTE_TRANSF (.PP)) 
RETURN (.STATUS); 


aoo 


'¢ 
: If pasteboard batching enabled, quit here. 


IF .PBCB CPBCB_L_BATCH_LEVEL] NEQ 0 


6 
ISPLAY_LIN SMGSDISPLAY_ LINKS = Virtual Display Linkages psa 5 21:46: AX-11 Bliss-32 V4.0-742 P 7 
385 SMGSSPAS VIRTUAL DISPLAY - Poste virtus disp met 43:88:18 ONGRTL BUGERCISNCDSS. f.832:1 age 18) ; 
; 166 ¢ STATUS, ! Status of subroutine calls : 
: 57 PP : REF SPP_DECL, ! addr of the pasting packet ; 
: £8 ! being created. ; 
3 A pie WCB : REF SWCB_DECL; ! Addr. of window control block 3 
: $771 6 rr ; 
: ak ? § ; Get space for pasting packet. : 
; 12% 6004 If NOT (STATUS = LIBSGET_VM ( REF (PP_K_SIZE), PP)) ; 
i 9776 6 RETURN (. STATUS); ; 
3 18 6 8 CHSFILL (0, PP_K_SIZE, .PP); ! Clear all fields to default 0 ; 
: 57 6010 2 !+ ; 
: 1 if } Initialize pasting packet : 
: 57 : $018 PP CPP_A_DCB_ADDR]_ = .DCB; : 
: 57 6014 PP CPP"A-PBCB_ADDR) = .PBCB; ; 
: 5785 6015 PP CPP"W~ = ..PASTEBOARD_ROW; ; 
; f oote PP LPP_W_COL = ..PASTEBOARD_COL; : 
: 57 601 1+ ; 
: 4 e018 ; Plug this packet onto both queues. : 
: 5791 6021 SSMGSINSERT_AT_HEAD ( PP [CPP_A_NEXT_DCB], DCB CDCB_A_PP_NEXT)):; : 
; 198 60 Q SSMGSINSERT_AT_HEAD ( PP CPP"A"NEXT-PBCB), PBCB CPBCB_A_PP_NEXT); : 
: 5794 6024 2 !4 
3; 5795 6025 ! If he display is batched, we want the backpointer in the PP to be 3 
: r36 $8 $ } pointing to our backup DCB. : 
: 5798 8 IF .DCB CDOCB_L_BATCH_LEVEL) NEQ 0 ; 
3; 5799 THEN 3 
; nt PP CPP_A_DCB_ADDR) = .DCB COCB_A_BACKUP_DCB]; : 
: 580 '¢ ; 
: 88 § : 
; 5805 5 : 
i 


SOONOUE Wit — 
SOONOUS WOO 


} eter eter fer hr per fer td 


w 


SAGSDISPLAY. LIN SM 


MEW" OONOufumr— 


FUSS SI 


SELELELE LEM 


VEW—OOBNOUE WO 


G9 09 C9 Cd C8 CD OD 
PAAR 
NO 


FIRS 
MEW —OOW 


1 


5 


PIAEPOOAAS 


SER 


TUAL DISPLAY = Paste virtual disp 2-0ct-1 SMGRTL .BUGSRC JSMGDISLIN.B32;1 


" RETURN ( SMG$_BATWAS_ON); 


pceres | poystcat display's cursor to be where this virtual display's 
hose betueen current DCB and backup DCB. 

WCB = .PBCB CPBCB_A_wC(B); 

Vi" COCB_L_BATCH_LEVEL] EQL 0 


". 
. Cc 
4, 


BEGIN ! Ort ey curr nt ocB 
wCB WCB. W_CURR_CUR_ROW) = .D0CB Foc _u .CURSOR_ROW)] = 1 . PP CPP_W_ ROW]; 
wCB we v CURR— CUR- COLJ = .O0CB DCB-W =Cu RSOR- COLJ = 1 «PP CPP W>COLJ; 
END T Get from current DCB 


ELSE 


ores ! Get from backup DCB 
BACK_DCB : REF SDCB_DECL; ! Addr of backup DCB 


BACK_DCB = .DCB CDCB_A ACKUP, DCB; 
WCB [CWCB_W_CURR_CUR_ROQ) = .BACK_DCB [DCB_W_CURSOR_ROW + .PP CPP_W_ROW]; 
~BACK~DCB COCB-W~CURSOR™ COL + [PP CPPTW7COL): 


wcB WCB. W- CURR” CUR-COL 
END; T Get from Beckup | DCB 
'4 
i Move stuff from virtual display to ppesenears buffer and caused it 
i to be output if pasteboard is not batched. 


IF .PBCB CPBCB_L_BATCH_LEVEL) EQ. 0 
THEN 


BEGIN 
PBCB CPBCB_W_FIRST_CHANGED_ROW) = 1; 

PBCB [PBCB-W-LAST CHANGED ROW) = ,PBCB CPBCB_B_ROWS); 
PBCB CPBCB-W-FIRST_ CHANGED COL) = j; 

PBCB CPBCB-W-LAST_CHANGED COL) = .PBCB CPBCB_W_WIDTH); 
RETURN (SMGSSFILL-WINDCW_BUFFER (.PP)); 


'¢ 
: Else just return Batch-was-On status. 


RETURN ( SMG$_BATWAS_ON); 
END; ! Routine SMGSSPASTE_VIRTUAL_DISFLAY 


OOFC 00000 ENTRY SHGSSPASTE_VIRTUAL DISPLAY, Save R2,R3,R4,- 
SE 08 ¢2 suBL2 #8; SP 
o« Re $F Sooes suehaB PP 
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-—oe 


06 AE 37 go ile MOVL #55, 4(SP) ; : 
04 AE 9F OC PUSHAB 4(SP : ; 
000000006 Q F CALLS #2, LIBSGET_vA : : 
D MOVL OR aTys F ; 
3 06 AE BO BOC abvL stArus. : 6008 : 
37 00 6E 06 Be 900 MOVCS #0, (SP), #0, #55, (RO) F ; 
19 Ab 0% AC 7 R04 MOVa DCB, 16(R6) : 13 : 
18 6 c BC B 00¢ MOVW  @PASTEBOARD_ROW, 24(R6) : 8 ; 
1A Ab 1 BO 000 MOVW_  @PASTEBOARD-COL, 26(R6) : 601 ; 
50 06 A ' D0¢ ADDL3 #32 DCB, RO : 602 ; 
Hoo BBBE | bike ii the fwa| |i 
NON Py ° 
08 8 § Ad 0 D0¢ INSGUE 8(R0), aPBCe : : 
4 AC 00 000 MOVL 8, R ; 6028 : 
© 05 38 boc SI | a ft 
+; : : 
4 A ve MOVL PP, RO : 6030 3 
10 A 4 SD 00 MOVL  64¢R2), 16(RO) : 
5 0 AC v0 00 ROVE CB, R3 ; 6035 
FA33 CF 1 FB 000 CALLS #1, SMGSSCHECK_OCCLUSION_FIRST : 
57 g 08 006 MOVL RO, STAT : 
: 06 AE 0D 90088 ne, ph. : 6043 
F649 «CF iF : CALLS #1, SMGSSCAL(_PASTE_TRANSF : 
? Q D MOVL RO. STAT : 
p EB 00 BLBS = STATUS, : 
0 ? BG 10 MOVL STATUS, RO : 6045 
DC RET 3 
56 00AS C3 p novi 164(R3), R6 ; 6050 
1 8 AS D0 oO MOVL (R3), WCB : 6059 
33 oe AE DO 00 MOVL PP. r§ : 6064 
1c OA 2008 TSTL =. 2B (R2) ; 6061 
2 BNEG = & : 
Q 28 hi 0 MOVZWL 40(R2), RQ > 6064 
A CVT 24(R5). R : 
20 AI a1 SuBws #1" RG, 32(WCB) 
2A A ; MOVZWL 42¢R2); Rs > 6065 
a oie ae: ; 
Al 1 A SuBWS «6 #1, Re, 34(WCB) : 
2 i 11 00( Brati«é*SS i 6061 
40 OA movi 64(R2), BACK_DC : 6074 
A MOVZUL 40(BACK DCB): R : 6075 
; A ; ADoLs £30832. R : 
20 al 3 suaus = #l. RS 32(wcB) ; 
2A AO ; mOVZWL 4 teack_p¢B), RO : 6076 
A Ab CVT 26(R4),"R : 
2 Hf i HER 8. scum 1 
6 0 an Uwe > 6083 


6 
$ ISPLAY_LIN SMGSDISPLAY LINKS = Virtual Display Linkages - a 
2889 of Ste” disp =o 


SMGSSPASTE_VIRTUAL_DISPLAY = Paste virtue 
a 
ae § 
AA ¢ SF OA 
ac oC 01 8 
AE OC 5A ASB 
& AE DD OOOF 
000000006 00 0 Fe Fé 
50 000000006 8F Bo FE 68: 
4 0010 


; Routine Size: 262 bytes, Routine Base: _SMGSCODE + 1FC3 


: 5869 6099 1 !<BLF/PAGE> 


Be 42:88:18 


SMGRTL .BUGSRC 


MOVE, Ste 168(R 
mOVZBW i 1 bcR3) 
mOVW of 

MOVW 90(R3), 174(R3) 
PUSHL 


CALLS #1, SNGSSFILL_WINDOW_BUFFER 
MOVL § #SMG$_BATWAS_ON, RO 


AX=11 Bliss-32 v4.0-76 
Meetaessmeb ys: tW.032;1 


Pave (45 


33 33885 


—y 


SPGSDISPLAY LIN SAGER ISPLAY LINKS - Virtual Display Linkages G-sen-i98s $h:36:18 AX-11 Bliss-3 


( : V4 0-742 Page 71 
ECALC_PP_FIELDS = Recalc. Pasting Packet -Oct-1 SMGRTL .BUGSRC JSMGDISLIN.832;1 (36) 


$ 
1 


ZSBTTL ts poh PP FIELDS = Recalc. Pasting Packet fields’ 
GLOBAL ROUTINE SMGSSRECALC_PP_FIELDS ( 
DCB =: REF SOCB_DECL 


So 


; e101 
: & 1 : 
2 61 § 1 )= $ 
; 61 1 tee 3 
P3 2 5 : FUNCTIONAL DESCRIPTION: : 
: 587 61 ii This routine recalculates fields in the pasting packet that : 
3; 58 61 : 1! need to change. F 
; 388 61 1! It walks the chain of peetine packets associated with the $ 
> 28 etit : } given Display Control Block, updating each. : 
: 588 611g 1 | CALLING SEQUENCE: 
: 588 git ; ret_status.wic.v = SMGSSRECALC_PP_FIELDS ( DCB.rab.r ) ; 
; ie 611 1 | FORMAL PARAMETERS: ; 
: B85 rae | : DCB. rab.r Address of a virtual display control block. ; 
: 58 6120 1 | IMPLICIT INPUTS: : 
3m 6121 1! 3 
; 38 61 1! None FH 
; 58 61 3 1 i : 
3 26 6126 1 ! IMPLICIT OUTPUTS: ; 
; 5896 6125 1! 3 
; 389 61 None 3 
: 58 61 $j i : 
; $899 6128 | | COMPLETION STATUS: 3 
3 wt 4 
3; 5961 61 1! S$S$_NORMAL Normal successful ¢ Letion 3 
: 306 6131 1! Statuses returned by SMGSSCHECK OCCLUSION and 3 
: ast 3 § : SMGSSCALC_PASTE_TRANF : 
i $905 6134 1 | SIDE EFFECTS: 
F 3909 61 ; NONE : 
; 309 61 BEGIN : 
; 5910 61 LOCAL 3 
3; 5911 6140 PP : REF SPP_DECL; ! Addr. of a pasting packet : 
Be | ng, : 
; a eic8 Step through all associated pasting packets, updating each. ; 
: §91 6145 2 PP = .0CB (DCB_A_PP_NEXT): ! Ist packet in DCB-oriented chain ; 
: 37 o166 WHILE -PP NEO BcB (BCB_APP_WedT) ' brite any foneta.., : 
2 aah 
: 5921 6150 STATUS, ' Status of subroutine calls ; 
; ; § a PCB : REF SPBCB_DECL; ! Addr of pasteboard control bik : 
; 924 61 § PBCB = .PP [PP_A_PBCB_ADOR); 3 
: ; $ ¢ 2 Calculate who occludes who in current pasting chain, : 


6 
SRGRRTSPLAY LIN SHORDUSELATSDIMEESco¥ITtgRL Do soLay binkggee. Fedaertaey gh:sgils USmoRTL-BuesRc SsMGb1SLN.832;1 


: 3 i {f wot (STATUS =SMGSSCHECK_OCCLUSION ( .PBCB)) ! Recalc. occlusion 
330 t RETURN (. STATUS); 

; 1 ‘+ 

a BE esau arttesomersantt mle i 

i 9 6165 IF NOT ( STATUS = SHGSSCALC_PASTE_TRANSF ( .PP)) ! Clean up packet 
: 59 8 RETURN (STATUS); 

; 3 $1 § PP = .PP CPP_A_NEXT_DCB); ! Step to next packet 

Bi Rg Bei 

; 308 6178 RETURN ( SS$_NORMAL); 

> 5944 617 END; ! Routine SMGSSRECALC_PP_FIELDS 


000 .ENTRY SMGSSRECALC_PP_FIELDS, Save R2,R3 
MOVL R 
MOVL (R3), pp 
1$: MOVAB (R2), RO 
CMP PP, RO 
MOVL (PP), PBCB 
PUSH 
9 CALLS @# SNGS$CHECK OCCLUSION 
L STATUS, 
PUSH PP 
CALL a SGS$CALC PASTE. TRANSF 
BLB STATUS 
MOVL (PP), pp 
#1, RO 
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3; Routine Size: 52 bytes, Routine Base: _SMGSCODE + 20C9 
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SMGSSUNPASTE_VIRTUAL_DISPLAY = 
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PUPP PVPS ASAI A III 
OCOODODDODDVOOO 
Sse 
Pets iF 
Cooooeo 
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SMGSDISPLAY_LINKS = Virtual piepter Linkoges B-san-1985 $3368 vane Bliss-3 


npaste virtual -Oct-1 


ZSBTTL ‘SMGSSUNPASTE VIRTUAL _DISPLAY = Unpaste virtual display from pasteb g 
GLOBAL ROUTINE SACSSONPASTEDIATUAC DISPCRY osgden cd pasteboard 
DCB: REF $DCB_DECL, 


' PACB : REF $PBCB_DECL 
= 


tee 

! FUNCTIONAL DESCRIPTION: 

The specified virtual display is ‘‘unpasted’’ from a pasteboard 
if a posting packet can be found. 

This is the inner-most unpasting routine. It assumes both 


parameters are present and as fhey are valid (not necessarily 
that the pasting packet which joins these two exists). 


LacLING SEQUENCE: 
ret_status.wic.v = papain wigs DISPLAY < 


-rab.r, 
PRCB.rab.r) 
FORMAL PARAMETERS: 
OCB.rab.r Address of DCB of virtual display to be 
unpasted. 
PBCB.rab.r Address of the pasteboard from 


which the unpasting is to take place. 
IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION STATUS: 
ompletion 


p 
isplay is not currently 
fied pasteboard. 


$S$_NORMAL Normal successful c 
SMGS_NOTPASTED Specified virtual d 
pasted to the speci 


SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
STATUS, ' Status of subroutine call 
PP : REF SPP_DECL; ! Addr of pasting packet being 
! inspected. 


'¢ 
: ivy to find the esting packet joining tnis DCB and PBCB. 
, Exit with SMGS_NOTPASTED if we can't. 


§ ¥4.0-74 
MGRTL .BUGSRC JSMGDISLIN.B32;1 


7 
SMGSDISPLAY_LIN SMGSDISPLAY LINKS = Virtual Display Linkages S-san-t9 5 21:46:14 AX-11 Bliss-32 v4.0-742 Page 174 
i097 SMGSSUNPASTE_VIRTUAL_DISPLAY = npaste virtual et $3:98:18 SMGRTL BUGSRCSMCD 4 SL 19.832; | ¥ RD 


: 6004 6 ; IF NOT (STATUS = SMGSSLOCATE_PP ( .DCB, .PECB, PP)) 
: 6006 6 4 RETURN (.STATUS); ! No common pasting cacket exists 
: 6008 6236 ¢ is 
3 eis'¢4 ? Located desired packet. Remove it from both queues. 
: 6011 7 5 5° SSMGSREMOVE _FROM_QUEUE ( PP [PP_A_NEXT_DCB) ); 
; 601 ¢ 40 SSMGSREMOVE-FROM_QUEUE ( PP CPPTA"NEXT~PBCB) J; 
: 6014 624 16 
; oat 2 ? or } Give back the pasting packet space 
; 6017 6245 "-JF_NOT (STATUS = LIBSFREE_VM ( REF (PP_K_SIZE), PP}) 
: 6019 6 23 RETURN (.STATUS); 
; 6020 6248 
: 6021 6249 2 !% 
; 60 § 6250 : If other virtual displays are still pasted to this pasteboard, we need 
; 60 6251 : to recalculate their occlusion bits since they may have changed by 
3 6095 : 2g removing this virtual display. 
: 60 6 6 34 1F PACE C PBCB_A_PP_NEXT) NEQ PBCB C PBCB_A_PP_NEXT) 
: 60 g 6 36 IF NOT ( STATUS = SMGSSCHECK_OCCLUSION ( .PBCB )) 
: 6030 6258 RETURN (STATUS); 
> 6031 6259 
: 60 : 6260 2 !+ 
3 o8 ? ee Cause pasteboard to reflect this change. 
: 6035 626 
; 6036 6 64 RETURN ( SMGSSCHECK_FOR_OUTPUT_PBCB ( .PBCB )); 
: $038 6266 1 END; ! Routine SMGSSUNPASTE_VIRTUAL_DISPLAY 
0004 0000¢ .ENTRY SMGSSUNPASTE_VIRTUAL_DISPLAY, Save R2 : 6176 
5E 08 C2 0000 SUBL2_ #8, SP : 
7E be AE 7D O00 NOVO. DCB, =(SP) Fezeoe 
FE71 CF oS FB 00 ¢ CALLS BS “sAGBBL OCATE PP : 
i 9 90¢ BLBC STATUS : 
1 04 8 F 00014 REMQUE aPP, FOO > 6239 
51 04 AE 1 00018 ADDLS #8, PP, RI > 6240 
5 61 OF 0001 REMGUE (RI), FOO : 
04 AE F 000 PUSHAB ; 6245 
04 AE a ; 9 000 ROVE #55 4(SP) ; 
NOC : 
000000006 99 a3 FB QO0GA CALLS #2. 1BSEREE_VM : 
C E9 00031 BLBC = STATUS, 28 : 
08 AC 08 ac b 00 CMPL CB, PBCB ; 6254 
08 ac bd 0 PUSHL  PBCB > 6256 
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3; Routine Size: 


; 6039 


81 bytes, Routine Base: 


6267 


SSDISPLAY_LINKS = Vi 
SMGSSUNPASTE_VIRTUAL_D 


rt 
DIS 
F82C CC 
0 


000000006 00 


1 !<BLF/PAGE> 


ual Display Linkages B-sane1 § 21:46:1 AX-11 Bliss-32 Vv4.0- Page 175 
ISPLAY = Gnesete ae -Oct- 382 #): 38: 13 USMGRTL” budtacisucoys, ta. 832;1 . (37) 
f 1 § S008 CALLS a or OCCLUSION 3 
A 0 BLBC Be ; 
08 Ac OD Be PUSHL 3: 6264 
01 FB 0004 CALLS oe SMGSSCHECK_FOR_OUTPUT_PBCB 3 
04 00050 2%: RET : 6266 


=SMGSCODE + 20FD 


ISPLAY_LIN SMGSDISPLAY_LINKS = Virtua L bis lay Linkages b san 5 AX=-11 Bliss-32 V4.0-742 P 7 
eng§ SMGSSUNPASTECVIRTUAL DISPOAY o Dupesta niece: 3apet=18B2 33:86:14 SMGRTL BUGERC ISHED Se f¥.0832;1 age 459 
: $06) ose } END ! End of module SMGSDISPLAY_LINKS 
S28 6570 0 ELUDOM 


«EXTRN LIBSSIGNAL 


: PSECT SUMMARY 

; Name Bytes Attributes 

: _SMGSDATA 80 WOVE. WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PTE AL 1 ENSS} 
; <SMGSCODE 85 NOVEC,NOWRT, RD; EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

Weel alike © 1S ee aia Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: =i Spun FS Snead SeaSwtic tact} , 9776 101 1 581 $0:85:9 

> 7$255$DUA18: CSMGRTL OB JISMELIB:L $3 483 15 38 38 :00.4 

; COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/NOTRACE/LIS=L1S$:SMGDISL1IN/0BJ=0BJ$: SMGDISLIN MSRCS$:SMGDISLIN/UPDATE=(BUG$: SMGDISLIN 
3; Size: 84 ° ce . + 118 data bytes 

3; Run Time: 

3; Elapsed Time 

3 Lines/CPU Min: 

3 Lexemes/CPU-Min: 2 S 

; ponery Y Used: 435 pages 

; Compilation Complete 
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